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- TITLE pope yer = TUS8 DC100 TAPE CARTRIDGE DRIVER 
-IDENT ‘V04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL aye CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ACCOR H THE TERMS OF 


E 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ooRPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: 


VAX/VMS TU58 DATA CARTRIDGE DRIVER 


ABSTRACT: 


This module contains the tables and routines necessary to 
perfrom all device-dependent processing of an I/0 request 
for the TUS8 on a VAX/VMS rye, system. This device 
opecetes ysing a@ RADIAL SER AL PROTOCOL. For a spec of the 
TUS8 and its RSP, see the ‘‘TUS8 DECtape I] USER'S GUIDE", 
document # EK-0TUS8-UG-001. 


This driver is desinged to work with a DL-11 serial interface 
via the UBA registers, or as a console device via the internal 
processor registers. 


AUTHOR: 
S. T. Jeffreys 31-0CT-1979 (with thanks to Mark Grossman) 
MODIFIED BY: 


v03-007 RASO300 Ron Schaefer 19-Jun-1984 
Add DEVSM_NNM characteristic to DECHAR2 so that these 
devices will have the ‘‘node$"’ prefix. 
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V03-006 PRDO044 Paul R DeStefano 10-0ct-1983 
Made UNLOAD, AVAILABLE, and PACKACK Legal functions and 
peees gocounery code to handle these functions within 

e driver. 


v03-005 ROW0211 Ralph 0. Weber 16-AUG-1983 
Change device-dependent UCB definition base from UCB$W_BCR+2 
to UCBSK_LCL_DISK_LENGTH. 


v03-004 $1J3060 Steven T. Jeffreys 02-Mar-1983 
- Do not use MRSP protocol when the TU58 is a console 
device on 11/750 processors. 
- Check the DD_V_USEMRSP bit instead of DD_V_MRSP when 
deciding whether or not to use MRSP for this request. 


v03-003 STJ48858 __ Steven T. sof trers 14-Sep-1982 
- Add some sanity checks on the DATA packet byte count. 


v03-002 KTA0100 Kerbey T. Altmann 07-Jun-1982 
Add code to set UCBSL_MEDIA_ID. 


v03-001 $TJ0260 Steven T. Jeffreys 15-Apr-1982 
- A slight change for 11/730 initialization code. 
Relax some of the sanity checking to allow for 
variations between processors. 


v02-008 $TJ0232 Steven T. Jeffreys 02-Mar-1982 

- Set the number of retries per request down to 4 (from 8). 

- Modify the reset_controller routine to always dump the 
reciever buffer Tmmediately after clearing the BREAK. 

- ght) dump _recvr_buf to return an error status if 
the DONE bit never gets set. 

- weg | snd_pkt_noint to return an error status if 
the READY Bit fever gets set. 


v02-007 $1J0107 Steven T. Jeffreys Ln Mg 
- Modified SND_PKT_NOINT to $ in on the tranmitter ready bit. 
This is necessary for 11/750 console TUS8s to init ereper) . 
- Always return SS$_DATAOVERUN from GET_PACKET_C and GET_PACKET_U 
so that in the event of an error, RO will contain the correct 
status code. For non-error conditions, RO is ingored. 


TCmMO001 Trudy C, Matthews 29-Jul-1981 
Changed all "'72Z''s to “730''s. 
JL 


v0025 Jake VanNoy 11-Jun-1981 
Added DEFUNITS to DPT. 


v02-004 $TJ0027 Steven T. Jeffreys 24-Mar-1981 ; 

- Modify the driver so that the device dependent status info 
is not returned in R1 (second longord of the I0SB). 
Register R1 will be zeroed before completing the 1/0. 

- Return SS$_DATAOVERUN for data over run errors. 

- Return SS$_PARITY for checksum errors. | 

- Alter errorlogging scheme to log all device errors. 
Old scheme was to only log errors that aborted the request. 
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Fix access violation on 10$_ Ce ARCH requests. 


° 115 ; - Modify the control tor error/reset routine so that it will 
118 3 return the or for'n reason for the controller reset. 
11? ; - Added support for multiple console TUS8s. (eg. CSA1, CSA2) 
13 : = Added support for 
119 ; - Optimized Sieteer caieties routines to minimize interrupt 

83 : 9 3 latentcy and processor usage. 

000 1 ‘ : v02=003 ACG0179 Andrew ¢. Goldstein, 23-Jul-1980 18:17 

bo : 7 3 Fix ACP class code in DPT 

99 5: v02-002 $140001 Steve Jeffreys 15-July-1980 

3 189 : 

00 128 ; 

00 129 
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-SBTTL EXTERNAL DEFINITIONS 
; EXTERNAL SYMBOLS 


SADPDEF 


ODOQOOQCGVOOOCOCOVOOOCOOCOOOSoO ¢ oo 
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sDefine adapter control block 
sDefine channel request block 
sDefine device class 

sDefine device data block 
sDefine device characteristics 
Define driver prologue table 
sDefine data structure types 
iDefine error message buffer 
sDefine interrupt data block 
sDefine 1/0 function codes 
sDefine 1/0 request packet 
sDefine ype registers 
:Page table entry definitions 
Define system status codes 
;Define unibus adapter 

sDefine urit control block 
sDefine interrupt vector block 
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C100 TAPE CARTRIDGE DRIVER 16-SEP-1984 :19:23  VAX/VMS Macro v04-00 Page 
FINITONS eet EE 1 DRIVER. SRCIDDDRIVER.MAR; 1 . 
: ; y -SBTTL LOCAL DEF INITONS 
§ ; Local symbols 
1 5 ; 
1 8 $ : 
159 ; TUS8 register definitions 
00 ie” 
009 196 SDEFINI DD Start of register definitions 
808 164 SDEF DD_RCSR BLKW 1 sReceiver status register 
165 _VIELD DD_RCSR,0,<- :Start of bit definitions 
000 166 <,6>,° Unused bits 
0002 16 <RIE; M>,= :Receiver interrupt enable 
000 168 <RDONE , . A> ,~ Receiver done 
002 170 SDEF DD_RBUF .BLKW 1 pReceiver data buffer register 
0004 =171 -VIELD DD_RBUF,0,<- iStart of bit definitions 
0004 6 <, 15>, 30-7 data , 8-14 unused 
te <ERROR, .M>,- ;Composite error bit 
175 SDEF DD_XCSR -BLKW 1 :Transmitter status register 
176 -VIELD 0D_xCSR,0,<- iStart of bit definitions 
177 <BREAK, ,M>,- Causes a framing error-break 
178 <,5>,° Unused 
179 <TiE; .M>,- zTransmitter interrupt enable 
139 “Sn coneaia :Transmitter ready 
18¢ SDEF DD_XBUF -BLKW 1 : TRANSMITTER DATA BUFFER REGISTER 
| 184 SDEFEND DD 
7 
186 ; \ : 
+ $ Device function codes. 
00000001 189 OD_CODE_DATACHECK = 1 ;Datacheck READ/WRITE modifier 
| - 0000000 190 DD_CODE_READ = ¢ Read request 
0000000 191 DD_CODE_WR = Write request 
00000005 136 DD_CODE_SEARCH = 5 Search Request 
00000007 193 DD-CODE-DIAG 27 :Diagnostic request 
0000000A 138 DD_CODE_DETECT = 10 sDetect TUS8 type 
198 : Radial serial protocol flags 
198 BD_FLAG_DATA = 1 ;Data packet fla 
199 DD_FLAG_CNTL = ? spennenr pecnes Lag 
O DD_FLAG_INIT = sInitialize controller flag 
1 DD_FLAG_CONT = 16 Continue flag 
§ DD FLAG XOFF = 19 sSuspend device action flag 
ACR_CHA = DD_FLAG_CONT sACK character for MRSP 
4 MRSP_V_SWITCH = Switch vield for MRSP 
5 MRSP_M SWITCH = sSwitch mask for MRSP 
CMD_PKT_HDR = *x0A02 :Command packet header switch 
DTECT_PRT_HOR = *XOQOOQAOA02 sSpecial command packet header 
3 DTECT PKT-CHKSM = on taas :Special command packet checksum 
TWO_IRITS = *x04 ;Two INIT characters 
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11 3 
1g 3 Device dependent status codes returned in the END PACKET. 
0 0 14 BD_STS_NORMAL = 0 ;Normal success 
80008003 15 DDUSTS"RETRY = 1 zSuccess but with retries 
FFFFFFFF 1 DD_STS_BADDIAG = -1 sFailed self test (diagnostics) 
FFFFFFF § 17 DD_STS_PARTOP = 5 sPartial operation (end of tape) 
FFFFFFF 18 DD-STS"BADUNIT = - :Bad unit # 
FFFFFFF 0 19 DDTSTS"NOCART = -9 :No cartridge 
FFFFFFFS 4 QO DD_STS_WRTILCK = =11 sWrite locked 
FFFFFFEF 00 1 DDTSTS“DATACHK = -17 :Data check error 
FFFFFFEO 0 4 DD_STS_BLKNF = “38 Seek error (block not found) 
FFFFFFDF 0 DD-STS_MTRSTOP = - sMotor stopped 
FFFFFFDO 4 4 DD_STS_BADOPCD = -48 ;Bad op code 
FFFFFFC9 208 5 DDTSTS“BADRCD = -55 :Bad record # 
000 5 3 The remainder of the status codes are internal 
0900 3 3 to this driver, and are used only for debugging. 
FFFFFFC? $00 0 5D_STS_BADINIT = -57 iFailed init sequence — 
FFFFFFC6 0000 1 DD_STS_BADCKSM = -58 Failed checksum comparison 
FFFFFFCS ai § DD_STS_DATAOVR = -59 Data over-run 
099 Me ; Define various and sundry symbols. 
OOOO000E 001 38 p_c LEN = 14 :Command packet buffer length in bytes 
00000 100 37 DD_EP LEN = 14 sEnd packet buffer length in bytes 
00000004 0000 3 DD-NUA_REGS = 4; Number of device registers 
aaa C 0000 9 DD_ERRBUF_LEN = <<DD_NUM_REGS * 4> + DD_CP_LEN + DD_EP_LEN> 
00000 000 40 DD_ERRBUF _LEN_L = 11 sLength of error buffer in longwords 
| A 0000 41 DD_CP_BCN = 10 ;Command packet byte count 
e 3 3208 6 DD_CHRSM_LEN = 2 Packet checksum Length in bytes 
0000080 0000 43 DD-MAX_PRT_BCNT = 128 Maximum data packet byte count 
00000001 0000 44 DD_DPBENT = 1 Offset to data packet byte count 
0002 0000 45 DD_DATA = 2 Offset to data w/i data pecket 
00084 0000 46 DD_DPBUF_LEN = <DD_MAX_PKT_BCNT + 4> ;Data packet buffer Llengt 
00000034 494 47 LONG WAIT = 52 :# of seconds before read timeout 
00 4 48 SHORT _WAI = 2 :# of seconds to wait after first byte read | 
000 00 2469 WRITE-WAIT = 3 3# of seconds before write timeout 
0000001 000 50 HIGH DIPL = 23 sSpecial DIPL for COMET 
00004E20 0000 251 MAXCARTIM = 20000 sMaximum character time, in 10 u-sec 
94 2g sunits, assuming a 50 baud Line. 
4 28 : Define the bits for device dependent status word in the UCB. 
| si 2? ; The field that contains these bits is UCBSW_TUS8STS. 
tit 35 -VIELD 0D,0,<- Start of bit definitions 
000 28 <CONSOLE, .M>,- :Console device : 
00 5 <PASS1, ,M>,- Determines where to call buffer routines 
00 60 <MRSP, ,M>,- sThis TUS8 speaks MRSP 
00 61 <USEMRSP, ,M>,- :Use MRSP for this operation 
000 62 > zEnd of bit definitions 
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66 ; 
2 3 Define extensions to UCB 
¢ SDEFINI UCB 
$3 =UCBSK_LCL_DISK_LENGTH 
9 SDEF UCBSL_DD_BUF WIN ~BLKL 1 
71 SDEF  UCBSLZDD“DPTR -BLKL 1 
r@ SDEF  UCBSL“DD“MSGPKT <BLKL 1 
6 SDEF UCB$SW_DD_MSGLEN .BLKW 1 
2 ; Define buffer for device registers. 
r§ $DEF  UCBSK_DD_REGBUF 
78 $SDEF UCBSWTDD"XCSR .BLKW 1 
79 SDEF § UCBSWIDD"XBUF <BLKW 1 
80 SDEF  UCBSWIDD"RCSR -BLKW 1 
81 $DEF  UCBSWIDDRBUF .BLKW 1 
5s 3; Define the Command Packet buffer. 
5 $DEF  UCBSK_DD_CPADDR 
§ SDEF UCBSB_DD_CPFLAG .BLKB 1 
SDEF UCBSB_DD_CPBCNT .BLKB 1 
8 SDEF UCBSB_DD_OPCODE .BL 1 
89 SDEF UCB$B_DD_OPMOD .B 1 
90 $DEF  UCBSB"DD"UNIT .BLKB 1 
91 SDEF  UCBSB"DD“SWITCH .B 1 
8 SDEF UCBSB_DD_SE -BLKB 1 
93 SDEF UCB$B_DD_SEQH . 1 
94 SDEF UCBSB_DD_BCNTL .BLKB 1 
95 $DEF  UCBSB"DD“BCNTH .B 1 
96 SDEF UCB$B_DD_BLKL -BLKB 1 
97 $SDEF  UCBSB"DD“BLKH .BLKB 1 
98 SDEF  UCBSWIDD-CPCKSM .BLKW 1 
89 3 Define the End Packet buffer 
0¢ $DEF  UCBSK_DD_EPADDR 
03 SDEF UCBSB_DD_EPFLAG .BLKB 1 
04 SDEF UCB$B_DD_EPBCNT .BLK 1 
82 SDEF UCBSB_DD_EPCODE .BLK 1 
SDEF UCB$SB_DD_EPSTS .BLKB 1 
S$DEF UCB$B_DD_EPUNIT .BLK 4 
SDEF UCBSW_DD_ABCNT .BLK 1 
SDEF UCBSW_DD_SMSTS .BLK 1 
: SDEF UCBSW_DD_EPCKSM .BLK 1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
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Start of UCB extensions 


sBegin definitions at end of UCB 
;Window to user's buffer 
sPointer to data packet buffer 
:Current message packet address 
:Current message packet length 


Register buffer address 
sTransmitter CSR 
sTransmitter buffer 
sReceiver CSR 

sReceiver buffer 


:Command packet buffer address 
:Command packet flag byte 
:Command packet byte count 
:0p code 

:0p code modifier 

;Unit number 

sSwitches 

;Sequence number - low byte 
:Sequence number - high byte 
:Byte count - low ye 

sByte count - ig Ps ce 
sBlock number - low byte 
zBlock number - high byte 
:Command packet checksum 


sEnd packet buffer address 

zsEnd packet flag 

:Packet byte count 

:0p code 

:Success code 

sUnit # (next 3 bytes not used) 
sActual byte count (bytes transfered) 
:Summary status (more status info) 
:Packet checksum 


sLast loc. in UCB 


; The following are psuedonyms for existing but unused fields in the UCB. 


sPoyice spect fic status 
This field also uses UCBSB_OFFRTC 


7 
(1) | 
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UCBSB_FEX 
U 
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EC1 
EC2 
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lowing fields in the UCB are currently not 
driver, and may be used as the need arises. 


(unused, WORD sized field contiguous with UCBSB_CEX) 
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v04- LOCAL MACRO DEFINITIONS -SEP-1984 DRIVER.SR REID DDDRIVER.MAR;1 
-SBTTL LOCAL MACRO DEFINITIONS 
: LOCAL MACRO DEFINITIONS 
+ GET PACKET - Get a packet of data from the TUS8 
* MACRO GET_PACKET My: 
BBC™ hs ey CON OLE,- Branch if not a console device 
CBS TUBESTS RSD L1 
BSBW ee ° _PACK Get packet (console) 
BR zRejoin common code 
Ly: BSBW bey PACKET_U ;Get packet (unibus) 
-ENDM GET_PACKET 


3 SEND_PACKET = Send a packet of data to the TU58 
‘MACRO SEND _PACKET au 2 L2 
BBC 


OOOCOCCOCOCOCCOCOOCOCOOOCSOVSCOOOSCOOOSOOO OOOO OCOOOOOOOOOOOOSOOOo 
SOSCOCCOSOSOSOOSOSOSOOSOSOOOSOSOSOSOSOSOOSOOSOSOSOSOOOSOSOOSCOOSOOSOSOOOSOOSSS FV 


oeese V_CONS Branch if not a console device 
cBSw- TUBBSTS Rs) L1 
BSBW $ END” Pac 'Send packet (console) 
BRB sRejoin common code 
i}: BSBW SEND “PACKET. JU :Send packet (unibus) 
.ENDM  SEND_PACKET 
; GET_BYTE - Get a byte of data from the device. 
“MACRO GET_BYTE 
MOVAB UCBS$B_SPR(R5),- :Get buffer address 
UCBSL-DD_MSGP GPKT(RS) 
MOVW rf UCB SU “DD_MSGLEN(RS) - Get buffer length 
GET_PACKET iGet the data 
8 .ENDM GET_BYTE 
1 ; SEND _BYTE - Send a byte of data to the device. 
* MACRO ares BYTE 
OVAB UCBSB_SPR(RS),- :Get buffer address 
5 UCB$L-D0D _MSGPKT(R R5) 
MOVW rs UCBSW"-DD OASGLENCRS) ‘Get butter Length 
SEND_PACKET Send dat 
0 -ENDM SEND “byt 


; MOVTOUSER 


; Move a string of data to the user's buffer. 
; Assume all inputs have been set up 
3; The different entry points are nsnded to avoid problems 
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; with page aligned user buffers. | 


‘MACRO MOVTOUSER 7L1,?L2 
BBSC 


#00 VarASS - ils this the first data transfer? 
UCBSW-TUSBSTS(RS),L1  :Branch if yes 
MOVL  UCBSL~DD_BUFWIN(R5),RO :Get window into user's buffer 
JSB G* 1OCSMOVTOUSER2 Move data 
BRB L2 tRejoin common code 
L1: JSB G* IOCSMOVTOUSER sMove data 
L2: MOVL __RO,UCBSL_DD_BUFWIN(RS) Save new window 
~ENDM MOVTOUSER 
MOVF ROMUSER 


Move a string of data from the user's buffer. 

Assume all inputs have been set up. 

The different entry points are needed to avoid problems 
with page aligned user buffers. 


«MACRO MOVFROMUSER ?L1,?L2 
BBSC ’ 


DD_V_P 33! ~ 
UCBSW~TU58STS(R5) ,L1 es 
FWIN(R5) ,RO :Get window into user's buffer 


Se Ge Ge Ge Ge Ge Ge Ge 


sls this the first data transfer? 
Branch if y 


MOVL UCBS$L_DD_BU 

JSB G* 1LOCSMOVFRUSER2 sMove data 

BRE L2 sRejoin common code 
L1: JSB G* IOCSMOVFRUSER sMove data 
L2: MOVL RO,UCBSL_DD_BUFWIN(RS) ;Save new window 
-ENDM MOVFROMUSER 
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“SEP=1984 


~SBTTL DRIVER PROLOGUE TABLE 
; DRIVER PROLOGUE TABLE 


S 

0: 

Gi 

$ END=DD_END, = 
ADAPTER=UBA, - 

2 PLAGSEDPTSM, Na SvP = 

; UCBSIZES<UCBS K 0D _UCBLEN>,- 
jini ; 

4 

5 

4 

; 

9 


PD.L,<*A\F11\> 
PD+ 3.8. DDBSK_ TAPE 
PL.B, 


VCHAR,L,=- 
FOD- 


DDB. DDBS 
UCB, UCBSB_ 


UCB,UCBS 
<DEVSA_ 


" ‘7a 


RND> 
uCcB, east NpEREHRRe aa™ 


UCB, .UCBSB_ pe vet oss 6 wit DISK : 
UCB -UCBSB. DEVT br Tu 


O3A>’ 


r 

CRB,CRBSL_INTD+4,D,DD_INT 
CRB, CRBSL— INTDo+de 6,0B_INT 
CRBS. INTD+VECSL_ UNITINIT,D,= 
DDB-DOBSL DDT,D,DDSDDT 


END 
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The DPT describes driver parameters and I/0 databse fields 
tialized during driver LOADing and RELOADing. 


:DPT creation metre 

:End of drive 

;Adapter type = UNIBUS 

3Sy Le page table entry required 
tLength of UCB 

:Driver name 

sNumber of units to autoconfigure. 


3START CONTROL BLOCK INIT VALUES 
‘Default ACP name 

ACP class 

sFork IPL 


sDEVICE CHARACTERISTICS 
;> File oriented 

;*- Directory structured 
s- Available 


s- Input device 
;° ae Souree 


pevice CHARACTERISTICS 
: Prefix name with ‘'node$"’ 


"ST eeeesesec 
t 
m 
* 

. ° 
et ae 
a 
° 
wo 
cs) 
—_e 
D 
2 


sDevice eteae 

sDevice type 

:Default uffer size 
sNumber of sectors/track 
:Number of tracks/cylinder 
:Number of cylinders 
iDevice IPL 

:Max imum error retry count 
:Max imum # of blocks 


sMedia ident ‘DD T 

sSTART CONTROL Love oe INIT VALUES 
sInterrupt service routine address 
zInterrupt service routine address 
;Unit init 


‘DDT address 
sEnd of prologue table 
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Mira tit DRIVER DISPATCH Fase E "9-8 -SEP-1 1382 8: 13: 3 YORIVER. SR SRE §D0D RIVER.MAR; 1 ° 14, 
oie -SBTTL ORIVER DISPATCH TABLE 
47h i TDRIVER DISPATCH TABLE 
476 i : The DDT List entry points for the driver subroutines which are 
Pt : called by the operating system. 
£38 : 
480 vOTAB 3D0T creation macro 
481 DEVNAM=DD,- ‘Generic device name 
4 ; START=DD_STARTIO,= SSTART 5 Foutine aceress 
4 UNSOL C=U,- ;Unsol c*tee interrupt handler 
484 FUNCTB=DD_FUNCTABLE,- sFDT addr 
0 485 CANCEL=0,= iC Ancet 170° handler 
000 4 6 REGDMP=D6_REGDUMP, Regis ster dump routine address 
0000 4 DIAGF =<DB™ RE RRBUF “Leneccds 5>*#4>>,- :Byte size of diab buffer 
bee 488 ERLGBF =<DD_ERRBUF _LEN+<1*4>+<EMBSL_DV_REGSAV>> ;Byte size o 
it $33 terrorlog buffer 
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TAPE CARTRIDGE DRIVER Ig-SEB-1984 00:19:28 AX/VMS Macro V04-00 Page 
ISION TABLE =5EP-1984 00:12:11 (CORIVER.SRCIJDDDRIVER.MAR;1 
33 .SBTTL FUNCTION DECISION TABLE 
Be 3 FUNCTION DECISION TABLE 
39 : The FOT Lists valid function codes, qpec ities which codes 
97 ; are buffered, and designates subroutines to perform 1/0 
38 3 preprocessing for particular functions. 
0 e 
1 DD_FUNCTABLE: 
‘ FUNCTAB,= SLIST LEGAL FUNCTIONS 
4 <DIAGNOSE ,=- SRUN INTERNAL DIAGNOSTICS 
5 SEARCH, = +SEARCH FOR BLOCK 
6 SENSECHAR, = SSENSE CHARACTERISTICS 
SETCHAR,= 'SET CHARACTERISTICS 
08 SENSEMODE , = *SENSE MODE 
9 SE TMODE , = [SET MODE 
10 READLBLK,-= SREAD LOGICAL BLOCK 
1 WRITELBLK,- sWRITE LOGICAL BLOCK 
1 READPBLK, - *READ PHYSICAL BLOCK 
1 WRITEPBLK,- SWRITE PHYSICAL BLOCK 
14 READVBLK, = [READ VIRTUAL BLOCK 
15 WRITEVBLK,= SWRITE VIRTUAL BLOCK 
1 ACCESS, = SACCESS FILE / FIND DIRECTORY ENTRY 
1 ACPCONTROL,- SACP CONTROL FUNCTION 
18 CREATE,= SCREATE FILE AND /OR DIRECTORY ENTRY 
1 DEACCESS,= SDEACCESS FILE 
0 DELETE,- [DELETE FILE AND / OR DIRECTORY ENTRY 
1 MODIFY,= :MODIFY FILE ATTRIBUTES 
g MOUNT, - :MOUNT VOLUME 
UNLOAD, = [UNLOAD VOLUME 
4 AVAILABLE, = S AVAILABLE 
: PACKACK= [PACK ACKNOWLEDGE 
8 FUNCTAB,= :BUFFERED FUNCTIONS 
<SENSECHAR, = SSENSE CHARACTERISTICS 
0 SETCHAR, = :SET CHARACTERISTICS 
1 SENSEMODE , = [SENSE MODE 
; SE TMODE , = +SET MODE 
CESS,- SACCESS FILE / FIND DIRECTORY ENTRY 
4 ACPCONFROL,- SACP CONTROL FUNCTION 
5 EATE - SCREATE FILE AND /OR DIRECTORY ENTRY 
; DEACCESS,- SDEACCESS FILE 
LETE,= [DELETE FILE AND / OR DIRECTORY ENTRY 
8 MODIFY. [MODIFY FILE ATTRIBUTES 
NT, - MOUNT VOLUME 
40 UNLOAD, = [UNLOAD VOLUME 
4 AVAILABLE, = SAVAILABLE 
4¢ PACKACK= [PACK ACKNOWLEDGE 
44 FUNCTAB *ACPSREADBLK,-= sREAD FUNCTIONS 
45 <READLBLK,= 
46 READPBLK, - 
4 READVBLK,= 
48 > 
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FUNCTION DECISION TABLE -SEP-1984 00:12:11 (CDORIVER.SRCIDDDRIVER.MAR;1 (1) 
4 49 FUNCTAB +ACPSWRITEBLK,=- sWRITE FUNCTIONS 
4 <WRITELBLK,= 
4 WRITEPBLK,= 
? WRITEVBLK.= 
36 34 FUNCTAB *+ACPSACCESS,=- 
6 5 <ACCESS,= 
be 2$ CREATE= 
6 5 > 
06C 28 FUNCTAB +ACPSDEACCESS,- 
06C Z <DEACCESS= 
88 6 FUNCTAB +ACPSMODIFY,- 
007 6 <ACPCONTROL,=- 
07 6 DELETE,- 
ah aes aes 
Obe 66 FUNCTAB +EXESLCLDSKVALID,- sLOCAL DISK VALID FUNCTIONS 
0084 567 <UNLOAD ,=- sUNLOAD VOLUME 
0084 68 AVAILABLE,=- ; AVAILABLE 
8 r 4 ‘sme ;PACK ACKNOWLEDGE 
0090 71 FUNCTAB +EXESONEPARM, - ;ONE PARAMETER FUNCTIONS 
ae ares 
009C 74 FUNCTAB *+EXESZEROPARM,- ;ZERO PARAMETER FUNCTIONS 
009C 75 <DIAGNOSE,- sDIAGNOSE THE DRIVE 
009C 76 > 
OOA8 77 FUNCTAB +ACPSMOUNT,=- 
0QOA8 78 <MOUNT= 
00A8 79 > 
0084 80 FUNCTAB *+EXESSENSEMODE ,- 
00B4 581 <SENSECHAR,=- 
Bpee 28 SENSEMODE- 
0B4 3 > 
00C0 84 FUNCTAB *EXESSETCHAR,- 
00cO 830.“ 585 <SETCHAR,= 
00Cc0 586 SETMODE- 
00cO 3=—._:- 558 > 
OOocc 588 
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P=1984 
~SBTTL TUS8 UNIT INITIALIZATION 


;+4 
: DD_UNIT_INIT = TUS8 TAPE CARTRIDGE UNIT INITIALIZATION 


; The operating system calls this routine at system stectyp. 
; during driver loading and during recovery from power failure. 


; INPUTS: 


R4 = ADDRESS OF CSR 
R5 = ADDRESS OF UNIT CONTROL BLOCK 


ALL interrupts are locked out. 


; OUTPUTS: 


Allocate a data packet buffer out of nonpaged pool, if the buffer 

has not already been allocated. This is done to reduce the size 

of the UCB. If the buffer cannot be allocated, exit immediately. 

In addition to the buffer itself, a 12 byte header must be allocated, 

end coccete fields be initilaized so that the buffer can be self- 
entifying. 


The unit status is set to online and a determination is made 

as to whether the unit interfaces via unibus adapter registers (UBA) 

or internal processor registers(IPR). If the unit uses IPR's, then 
t is a console device. The device is a console device if 

the CSR address is not a system address. All system addresses 

have bit 31 = 1, which makes them appear negative. 


; Side Effects: 


If the processor type is unknown, or the sector buffer could not 
be allocated, mark the device (UCB) offline to prevent it use. 


D_UNIT_INIT: ;TUS8 controller intialization 
Allocate the buffer if it has not been allocated yet. 
CLRW = =©6UCBSW_TUSB8STS(RS) sReset device status flags 
BBCS #UCBS$9_ONLINE,- zSet device online 

UCBSW_STS(R5),10$ : 

TSTL UESL. 20 _SPTRIRS: Is pointer to buffer nonzero? 
BNEQ 0$ Branch if yes 
PUSHL R4 sSave R4 


MOVAL  G*EXESGL_NONPAGED,R4 :Put address of nonpaged pool 
slist head in R4 
PUSHL (R4) sSave IPL in pool List head 
MFPR #PRS_IPL,(R4) Save IPL in pool List head 
MOVZBL #<DD DPBUF_LEN*+12>,R1 ;Set buffer Length in R1 
JSB G*EXESALONONPAGED yAllocate data packet buffer 
(R4) Restore IPL in List head 
RG sRestore R4 
BLBC RO,13$ sBranch if error 
MO 1,8(R2) :Put size into buffer header 
MOVB + tyr + Salman Put type into buffer header 
#12,R2,- ;Save pointer to start of actual 
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ra tt Tuse UNIT INITIAL ISAT ION -SEP=-1984 TEE DRIVER. SRCIDDDRIVER.MAR; 1 . 
; 2 o7 UCBSL_DD_DPTR(RS) sdata packet buffer. 
10A e¢8 $ chegk the CSR address to determine if this is a console or unibus 
10A 650 ; TU58. Unibus TU58s will have a CSR address that is a systen 
10A 651 ; address, and the number will appear negative. Console TU58s will 
10A 6 ¢ 3 have a CSR address that is actually a processor internal register 
: : $27 $ number, and will appear to be a positive number. 
54 05 10A 655 208: TSTL = RG sTest CSR address 
43 1 10¢ $28 BEQL 13$ gsentty check 
2 19 145 6 BLSS 50$ sBranch if unibus TUS8 
11 $28 : The device is a console TUS8. Mark it as such. 
110 660; Determine the CPU “we and set the device IPL field 
ae pod 3 in the UCB accordingly. 
50 O00000000'GF 90 011 66 MOVE G“EXESGB_CPUTYPE ,RO :Get CPU type code 
OA 15 Q11 664 BLEQ ssanity check 
50 03 91 #0119 665 CMPB #PR$_SID_TYP730,R0 zIs this a 730 cpu? 
OF 13 O11C 66 BEQL 0$ sBranch i yes 
50 02 91 O11E 66 CMPB #PRS$_SID_TYP750,R0 sls this a 750 cpu? 
06 13 #0121 668 BEQL 30$ sBranch if yes — 
06 £4 0123 669 138: BBSC #UCBSV_ONLINE,- sSet device offline 
00 64 AS 0125 670 UCBSW_STS(R5),14$ 3 
05 0128 671 14$: RSB sJust in case 
17 90 0129 672 30S: MOVB #HIGH_DIPL,- Set high device IPL for 750 cpu 
SE AS 0128 67 UCB$B-DIPL (RS) ; 
00 €2 012D 674 40$: BBSS DD_V_CONSOLE,- ; Mark this unit as a console device 
00 OOCA C5 O12F 675 UCBSW"TUSBSTS(R5),50$_ ; ‘ Bes, ek : 
01 10 0133 676 50S: BSBB INIT_ONIT Do second half of unit initialization 
OIRe 677 : BLBC RO,13$ Branch if error 
05 0135 678 RSB ;Return 
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.SBTTL 
INIT_UNIT 
This routine is the second half of the TUS8 unit initialization 
routine. This routine will initialize the controller and determine 
if the controller speaks MRSP. The algorithm for determining the 
TUS8 controller type is given below. 


Determining the TUS8 controller type: 


INIT_UNIT 


Initialize the rontret ler and then send it a command packet with 
the flow control bit set (MRSP_M_SWITCH in the SWITCH field of the 
command packet), and get the first byte of the controller's response. 
If the controller speaks MRSP, the response will be 02 (which is the 
first byte of an end packet). If the controller does not geeeh MRSP, 
then the first byte will be 01 (first byte of a data packet). Note 
that a data overrun condition will also indicate that the controller 
does not speak MRSP. f an overrun condition did not occur, and the 
response was not 01 or 02, then assume that there is a hard controiler 
error, and exit with the epgrepriate error status. After gets tng the 
ppapenes. : nore the rest of the data sent by the TU5S8 and reinitialize 
e controller. 


Input: 
IPL = IPL$_POWER 
RO .. R3 = scratch 
R4 = CSR address 
R5 = UCB address 

Output: 
RO is even if error, odd if success 

INIT_UNIT: :Second half of unit initialization 

BSBW RESET CONTROLLER sImitialize the controller 
BLBC RO,138 :Branch if error 


Build the special command packet used to detect the controller type. 
Note that since the only variables in the command packet will be the 
device unit number (which will also cause the checksum to vary) the 
command packet can be built quickly, and the checksum computed easily. 


MOVAL UCBSK_DD_CPADDR(RS),R2 ;Get address of command pocher buf fer 
MOVL TECT_PRT_HDR,(R2)+ ;Set FLAG, PKT_BCNT, OPCODE, and OPMOD 
MOVZWL UCBSW_ONITTR 2 RO -Get device unit # 
BBSS #<MRSP_V_SWITCH+ >, RO, 10$;Set MRSP switch bit to prevent data 
soverruns on 730 processors. 
10$: BBC #00 V~CONSOLE - Branch if not console device 
UCBSW7TUSBSTS(RS).208 : 

DECW R sDecrement the unit # 

20$: MOVL RO, (R2)¢ :Set the UNIT, SWITCH, and SEQUENCE # 
CLRL_ (RB) iClear TRANSFER COUNT and BLOCK # 
ADDWS #DTECT_PKT_CHKSM,RO,(R2);Compute and set the CHECKSUM 


Send the command packet to the controller. 
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rai tt INIT_UNIT mist} y EEE DRIVER. SRCIDDODRIVER.MAR; 1 . (1) 
0D4 C 9E 016 737 MOVAB UCBSL_DD_MSGPKT(RS),R2 ;Get address of packet pointer 
a5 Ogee (3 Dd 188 7 3 MOVAL Mitte tet StH Tepe Eat ae command pocket ederess 
6 B 1g 7 MOV DD_CP_LEN, (R2) :Get command packet Length 
40 10 01 740 BSBB ss SND PKT_NOINT :Send command packet 
2F 5 E if el BLBC RO, 138 Branch if error 
17 28 : Get the controller's response. The response 
\y eee 3 Cin R1) will determine the controller type. 
175 746° 
009 30 017 5 BSBW MP_RECVR_BUF 3Get controller response 
ra) 5 —9 0178 ree BLBC ° 13$ 4 Branch if error ’ 
151 OF £0 0178 7% BBS #06_RBUF_V_ERROR,R1,30$ :Branch if data overrun 
s TF Ht 750 CMPB #0D-FLAG_DATA,R1 sWas it a data packet flag? 
1A 3613) «0182~—Sés 751 BEQL 308 sBranch if equa 
51 02 91 0184 P36 CMPB 1 > Sata alec sWas it a command packet flag? 
w a Bt eee BNEQ 13$ sBranch if ner 
eee 91 B 9 P38 CMPB pms adh te zIs this a 750 cpu? 
06 12 0190 £38 BNEQ a Branch if not 
oe EO 0192 75 BBS #0D_V_CONSOLE ,- Branch if 11/750 console device 
06 OOCA C 0194 £38 UCBSW-TUS8STS(R5),30$ ; fie. do not set the MRSP bit) 
E2 0198 759 25$ BBSS #00 _V_ ; - Set MRSP bit 
00 00CA C 019A 760 UCBSW-TUS8STS(RS),308 ; 
30 He: 761 30$: BSBW RESET CONTROLLER zIgnore the rest of the response 
0D 50 —s«éEB et re BLBS RO,408 Branch if success 
BA : ; Something went wrong. 
51 D4 O1A4 766 {3s CLRL sR : 
O6F 1 0 O1A6 BSBW =s- RC SR :Clear receiver CSR 
O6DF 0 O1A9 768 BSBW SCSR ;Clear transmitter CSR 
50 0054 8F BO OIAC 76° MOVW #SS$_CTRLERR,RO :Set error status 
0S 0181 770 40$: RSB ;Return 
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Vv SND_PKT_NOINT -SEP-1984 00:12:11 CDORIVER.SRCIDDORIVER.MAR;1 (1) 
18 oe -SBTTL SND_PKT_NOINT 
18 7735 34+ 
Ht pe 3 SND_PKT_NOINT 
18 76 ; This routine will send a packet of bytes to the TUS8 controller. 
18 777 ; This routine is special in that it does not use interrupts, and 
18 ak 3 expects IPL to be at IPL_POWER. 
18 780 ; Input: R4 = CSR address 
+ 13 RS = UCB address 
18 f g ; Output: RO .. R3 are destroyed 
O18 g : ; Note that if RO is nonzero, then not all the bytes were sent. 
1B2 786° 
18 9 SND_PKT_NOINT: Send packet w/o interrupts 
50 0008 CS 3C O16 res MOVZWL UCBSW_DD_MSGLEN(R5),RO ;Get # of bytes to send 
52 0004 C5 00 Hy 4 44 MOVL UCBSL_DD_MSGPKT(R5),R2 ;Get address of message packet 
O1Bc ia ; Wait for one character time until the TUS8 is ready for another character. 
53  00000000'GF O00004E20 8F cS O018C 793 ios: MULLS #MAXCHRTIM,G*EXESGL_TENUSEC,R3;Calculate wait loop count 
E1 01C8 79% BBC #0D_V_CONSOLE,- :Branch if not a console device 
OC OOCA C5 O1CA 795 UCBSW" TUS8STS(R5),20$ ; 
00000000'GF 91 OICE 79 CMPB G*EXESGB_CPUTYPE,- zIs this a 730 cpu? 
0 B1Re 79 #PRS$_SID_TYP730 3 
0 12 0105 798 BNEQ 20$ sBranch if not 
53 8 C6 0107 799 DIVL2 #40,R3 zReduce wait time for 730 consoles 
E1 O1DA 800 208: BBC #0D_V_CONSOLE,- Branch if not a console device 
18 OOCA CS 01DC 801 UCBSwW- TUS8STS(RS) ,40$ s 
51 1E& vB preg 80 MEER #PR$_CSTS,R1 Get console device CSR 
17.51 07 * Bre 803 30S: BBS #DD_RCSR_V_TRDY.R1,50$ ;Branch if transmitter ready 
01°01°01°01°01'01'01'G1" O1E7 804 -BYTE 18] sNOPs to slow loop to allow DMA 
853 FS O1EF 805 SOBGTR R3,20$ sLooe 
50 0054 8F 43 B1e$ 508 pee. #SS$_CTRLERR,RO ERROR -- transmitter never ready 
51 046 AG g O1F8 808 40S: MOVZWL DD_XCSR(R4),R1 :Get UNIBUS device CSR 
Ss pire +44 BRS 308 Rejoin common code 
aire eH ; Send a byte the TUS8. 
51 82 QA O1FE oi 50s: MOVZBL (R2)+,R1 :Get byte to send ' 
3 —E1 0201 814 BBC #0D_V_CONSOLE.- zBranch if not console device 
09 OOCA f 5 15 UCBSW-TUS8STS(R5),70$_ ; 
1F 1 ODA 1 MTPR R1,#@PRS$_CSTD Send byte (console) 
AF 50 =F5 OA 17 60$: SOBGTR RO,10$ :Branch if more bytes to send 
50 06 0D 18 INCL RO sSet success status 
05 OF 1 RSB Return 
06 AS «=651~—B0 10 $f 70$: MOV R1 ,DD_XBUF (R4) sSend byte (unibus) 
FL 11) 0214 1 BRB 60$ sRejoin common code 
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mired DUMP _RECVR_BUF -SEP-1 198 0:13 1 (CORIVER.SR REID DDDRIVER.MAR; 1 . (1) 
16 3 -SBTTL DUMP_RECVR_BUF 
16 4 344 
1 5 ; DUMP_RECVR_BUF 
16 : ; Dump the contents of the receiver buffer to RI. 
16 3 ; This routine will wait (via a delay loop) for 
16 3; approximately 1 character time before giving up. 
16 0 ; Note that the receiver buffer is dumped no matter what. 
Hb 1 ; This routine executes at IPL equal to IPLS$_POWER. 
16 : 3 Input: = CSR address 
Hb ¢ 3 RS = UCB address 
16 § ; Output: R1 = contents of receiver buffer 
8 16 ; RO is destroyed. 
O516 839 
0216 579 DUMP _RECVR py wap receiver buffer 
50  O0000000'GF 00004E20 8F cS O 18 41 MUCL #MAXCHRTIM, G*EXESGL _Tenuiet 0;Calc wait interval 
09 E1 0 BAe BBC #00_V V_.CONS LE.- sBranch if not a console device 
OC OOCA 0224 4 UCBSW~ TUSBSTS(RS),10$ 
00600000" Sf 91 8 ; He CMPB GrERES GR. orurtoee is this a 730 cpu? 
03 12 O22F ge8 BNEQ 10$ sOrench if not 
50 28 C6 0231 84 DIVL2 #40,R0 sReduce wait time for 730 consoies 
oo E1 0234 rt 10$ BBC #0D0_V_CONSOLE,- ;Branch if not console device 
2E OOCA C 0 HA 49 UCBSW" TUS8STS(R5) ,50$ 
51 1C DB O23A 529 MFPR #PRS_CSRS,R1 :Get CSR (console) 
51 0080 8F 83 023D 51 20$ BITW #00 RCSR_M _RDONE ,R1 Test DONE bit 
12 12 0242 $26 BNEQ 75 :Branch if Sranetes don 
01°01°01°01°01'01'°01'01' 0244 85 .BYT 108) :NOP's to slow loop to  atlen DMA 1/0 
50 £5 O024C g2¢ SOBGTR RO,10$ ‘Branch if time not up 
50 0054 BF 3C O24F 855 MOVZWL #SS$_CTRLERR,RO TERROR == done bit never set 
03. =s11 8 54 856 BRB :Read receiver our for anyway 
ss CUS 56 $2, $03: MOVZWL At yy wot oe. :Set success statu 
00 €1 0259 58 35$: BBC a ae ‘Branch if not a sansuie device 
04 OOCA C5 0258 $2) scesu TUSBsTS(R5), 40$ 3 
51 1D 08 3 300 meee #PRS$_CSRD :Dump receiver buffer (console) 
;Retur 
51 02 A4 3¢ e§ B66 40$: aa od eehieat al Dump receiver buffer (unibus) 
emeturn 
51 64 BO 0268 864 50$: MOVW DD_RCSR(R4) ,R1 sGet receiver CSR (unibus) 
DO 3611 «#20268 ~ 836865 BRB 208 :Rejoin common code 
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SEP=-1984 
: ~SBTTL STARTIO ROUTINE 
¢ DD_STARTIO = START 1/0 OPERATION ON Tu58 


v0u-000" START 


; This routine is entered when the associated unit is idle and a packet is 
; available for processing. 


; INPUTS: 


7 = ADDRESS OF 
R F 


/O0 REQUEST PACKET. 
= ADDRESS 0 E 


I 
; DEVICE UNIT UCB. 
; OUTPUTS: 


The 1/0 request will be completed, barring errors, and the driver 
returns with some extra information in the I0SB. The format of the 


is 
10SB 
31 16 15 0 


b¢eecer ecm ewanernce waeoepfoeoras ona eevee nweaos + 


: TRANSFER COUNT i STATU ' 
+ 


mm eee ae com at een ome tonne tees ae nace e eee } 


AAAS 


i <unused> ‘ 


tee wre nnn eee eee meee epomeceeacranc em ncaa n nas + 


: Where TRANSFER COUNT is the number of bytes transfered, 
: STATUS is the 1/0 status code. The second longword is 
: unused, and is zero. 


POPOIPIPIPIPININIPIPIDIMPINIPINIPIPIPIPINIPIPIPIPIPPIPIPINININININIFITYNINY OO 
PERERA AAA AAO AOA SO 
coco ovo Vv VvTVv°cT9°09c0 90900 0090°9°90"08 wo 
9 OD Co Cd CD 09 Cd 09 G9 0D Cd CD CO CD CD CD CD OD CD OD 


SOOOOOOOCOSOOOCOOSOSOOSOOSOSOOCOCOSOOOSSOSSOCOOOCOOCOOOOOOOOCOOOOOOOOOOOOO a 


D 

D 

D 

D 

6D 

6D 

6D 

6D 

6D : 
oe 38 ; ERROR LOGGING: 
6D 98 The information copied to the error logger buffer includes the 4 
6D 99 device registers as well as the COMMAND and END packet buffers. 
6D 00 The register dump routine assumes the information is in the UCB, 
re if uote and that the register and packet buffers are contiguous. 
re oe7 Data is sent/received to/from the TUS8 one byte at a time. 
6D 905 ALL exchanges of data between the TUS8 and this driver are done by 
6D 44 “message packets’’ that have a special format that is recognized by 
6D 90 the TU58 controller. Each message packet has a checksum associated 
6D 90 with it. The checksum is (for lack of a better word) checked upon 
6D 90 receipt of the message packet. If the checksum that was sent with 
6D 910 the packet does not agree with checksum calculated by the receiver, 
6D 911 this is considered a controller error, and the driver attempts to 
re 31§ retry the entire 1/0 request. 

6D 914 To complete a given 1/0 request, several message packets aey be sent 
6D 915 back and forth between the driver and the device. for a full spec of 
6D aig arly r = device interaction and message packet design ee the 

6p 37 TUS8 DECtape II USER'S GUIDE’, document # EK-OTUS8-UG-001. 

6D 919 

6D 920 ;-- 

6p 3 1 6D_STARTIO: ;Start 1/0 operation 

6d 9 : REQPCHAN sRequest channel-prevent access to 


5 or SO ''" rrr: — 
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4 : : controller by two units at same time 
7 § DD_RESTARTIO: Restart the 1/0 operation after 
7 7 ta powerfail recovery. We start 
7 9 8 shere to aviod a ay to release 
4 3 4 zand then request a new channel. 
0081 ce 90 7 931 MOVB UCBSB_ERTMAX(R5) ,= ;Set error retry count 
0080 ¢ 7 5 ¢ UCB$B-ERTCNT(RS) 3 
0 AA 7A oO BICW #UCBSA_DIAGBUF ,- iClear diag. status bit 
68 A 7C | (934 UCB$W_BEVSTS(R5) : 
07 ~€1 7 935 BBC #iRPs? DLAGRUF - iBranch if not diag. request 
04 2A A3 9 : IRPSW_STS(R3) , 108 : 
02 Ag 6 9 BISW  #UCBSA_DIAGBUF ,- :Set diag. status bit 
68 A 938 UCBSW ~DEVSTS(RS) : 
54 24 A5 D0 0287 939 10S: MOVL UCB$L-CRB(RS) ,R4 :Get CRB address 
0288 940 ASSUME IDBSL~CSR EQ 6 ‘The following assumes this 
54 2C B46 00 0 se 33) MOVL acresC. INTD+VECSL _1DB(R45 ,R4 3Get CSR address 
8 or 548 s Buffer up the command packet. 
S52 O0E€2 C5 9E O028F 945 MOVAB UCBSK_DD_ gt ort R2 ;Get buffer address 
82 OA02 BF 0 0294 308 MOVW #CMD_PKT ,(R2)+ Set packet flag byte and byte count 
d6ge 0 8 99 9% BSBW SET_F NCTION’ iDetermine device function 
82 0 90 9¢ }6=—-« 948 MOVB RO, TR2)+ :Put opcode into buffer 
82 51 90 i! rh MOVB R1,(R2)+ Put opcode modifier » buffer 
0O2A 951; For console TUS8s, the physical device unit number is one 
02A 828 3 less than the unit number stored in the UCB. This is 
8 - 837 s necessary to be compatible with existing software. 
50 54 a5 3¢ OSA 955 MOVZWL UCBSW_UNIT(RS) ,RO :Get device unit # 
00 €1 Q2A6 956 BBC #0D_V-CONSOLE,- Branch if not a console device 
02 OOCA C5 8 AB 957 uCcBSw- TUSBSTSiRS). 208 
50 97 AC 958 DECB RO :Decrement device unit 
82 50 90 Q2AE 959 20S: MOVB RO, (R2)+ ‘Put unit number into command packet 
50 04 bSe3 960 CLRL RO’ Assume not using MSRP 
03 =€E1 8 B83 20) BBC #0 mittee ;Branch if not using MRSP 
03 OOCA C5 $B 6 UCBSw_TUS8STS(R5) ,30$ 
50 08 90 0289 9% MOVB dal SWITCH,RO Set switch to use MRSP 
82 50 90 O2BC 964 30S: MOVB RO, (R2)F :Set command switch 
4 B4 O2BF 965 CLRW (R2)+ :Set sequence # (unused) 
62 7EA B0 C1 9% MOVW UCBSW_BCNT(RS5) ging? :Put byte count into buffer 
00co cS) ss 82~—~CiéB*OD 3 of MOV (R2) +, UCBSW_ BCR(RS) Save bytes to transfer 
CA 34 : Convert the physical media péérons in IRPSL_MEDIA to an LBN. 
CA 970; This is necessary pecouse the TUS8 controller expects an LBN 
cA 71 : not a physical media address. The LBN is given by the formula: 
eA a8 : LBN = (CYLINDER®(TRACKS/CYLINDER) ¢TRACK) *(SECTORS/ TRACK) )+SECTOR 
38 AS) DO «O2CA 975 MOVL  IRPSL_MEDIA(R3).- :Copy media address to UCB 
OBC C5 cd 376 UCBSL- _MEDIA(R5S) 
53 OBC E D 97 MOVAL UCBSL- -" DIACRS) ,R3 tGet address of media address 
0 A D 44} MOVZBL (R3)¢> Get SECTOR 
1 A D 97 MOVZBL (R5)+, fF :Get TRACK 
E C 0B 980 MOVZWL (R5)+, *=(SP) 3Get CYLINDER 


<4 
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mug vee $8.) BT RACKS(RS) . R3 i y 17,3 eeesoemee 
° s 
ADOL m3 i R1 Ge = C#(T/C)+T 
“he ROVER GERD. SECTORSnS)RS gat SEETORS TEAK cs 
= 
82 0 3; A ADDW R1,R0,(R2)+ 3 Put LBN into command packet buffer 


Compute the checksum for the command packet, and then 
insert it at the end of the packet. 


MOVAB UCBSK_DD_CPADDR(RS),R1 ;Get command packet address 
MOVZWL oe Dr acEN - DDL CHKSM_ LEN>,R2 ;Get command packet length 


"ey 


WDOOOOOOOOOOOOO 


SEND PACKET :Send the command packet 
Drop thru to GET_RESPONSE 


TA 
N 
4 
‘ 
8 
9 
0 
91 
x 
AA 9 BSBW fel 3 Com a. ute the checksum 
OOEE CS 50 80 oae ; MOVW Roe See W_DD_CPCKSM(RS) tInsert the checksum into packet 
; 996 bD_TRYAGN: 
; 998 ; Clear the End Packet buffer 
30 BB 0 1000 ° PUSHR #*M<R4,R5> :Save R4 and R5 
00 2C 0305 1001 MOvCS #0,- :Source Length 
00000000 ' EF 0307 1008 0,- :Source address 
00 030C 100 7 SFiLl character 
Of 030D 1004 #00_EP_LEN,- :Destination Length 
OOFO C 030E 1005 UCBSK BD_EPADDR(RS) tDestination address 
30 BA tae 1906 POPR #*M<RZ,RS> sRestore R4 and R5 
0313 1008 : In case the 1/0 request has been restarted, some of the 
ba 1993 3 fields in the UCB must be reset to their initial values. 
53 58 AS 00 031 1011 ; MOVL UCBSL_IRP(RS),R3 sGet IRP address 
¢ AS D 0317 1 \¢ MOVQ IRP$L_SVAPTE(R3),= Res tors UCBSL PTE, 
8 AS O31A 101 UCBS$L_SVAPTE(R5) W_BCNT cBsi_s UcBSu. BOF F 
7E AS) =6BO «6(031C =(1014 MOVW UCBSW_BCNT(R5),- Restore UCB$W_BCR 
00co c5 O31F 1015 UCBSW_BCR(R5) 
Oe AB 0322 1016 BISW é PASS1,=~ a bit in TUS8STS 
OOCA C 05 4 1017 UCBSW~TU58STS(R5) : 
3 , 1906 : Send the command packet to the device. 
QOOE2 (5 -9E r 4 ? ; MOVAB UCBSK_DD_CPADDR(R5),-  ;Get command packet address 
0004 C5 8 B 10 § UCBSL~DD-MSGPKT(RS5) 3 
Of B0 1 MOVW #0 CP_LEN Get command packet Length. 
00D8 ¢ 4 UCcBSw_ 5  MSGLEN(RS) : 
41 1 
41 19 § 
41 1028 
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41 1 3 
41 1 3; This $99 wqnee of code is executed after each successful 
41 1 ; transmission/reception of a message packet. GET_RESPONSE 
41 1 3 Sorety gets the next byte sent from the device, and uses 
rh ! qi 3; that byte to decide what to do next. 
41 1 § ber oRESPONSE : ;Get the TUS8's resonse 
i GET _BYT sGet a a byte 
51 por cs 90 58 1 : ove UCBse SPRIRS) , a Move to nt for convenience 
1 1 ."} | 6 1 CMPB D_FCAG_D R1 sData f tag? 
18 13 63 1040 BEQL REA Rob arn Branch if data flag 
"9 4 ? 104 CMPB Rope FEAGCONT.R1 spent nue ag? 
7a 5 104 BEQL 1 ; Branch if cone tens flag 
51 2 91 6A 104 CMPB #0D_FLAG_CNTL,R1 sControl flag? | 
13 6D 1044 BEQL 0$~ :I1f control flag then branch 
50 0054 8F C of 1045 MOVZWL caetn CTRLERR,RO :Assume controller error 
O1ED 1 4 1 <P 19 BRW CONT" ERROR Controller protocol error | 
p0cd 1 77 104 BRW WRITE_DATA tWrite to the device 
014 1 7A 1048 2 BRW END_PACKET :Get the end packet 


| 
| 


me —E 


| v04=000" STA 


) 


: Get the rest of the data packet, including the checksum. 


:Set offset to point to next byte 


5 INCB RO 
0004 ¢5 0000 0540 9 MOVAB eyceet DD thy CROJ, ~;Get pointer into packet buffer 


L_60_As (R5) 
30 9991 3 98 aor te Mitte BrSPRCRS) oR ~ Get packet byte count 
0008 C 2 afl D_CAKSM :Al low room for the packet checksum 
PBs DD MASGLENCAS) 
GET PACKET iGet the data packet 


Now transfer the data in the data pacter. buffer to 
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70 3 
70 ; The following code sequence services READ requests by 
p ; transferring a data packet from the device to the user's buffer. 
7D READ_DATA: sService READ reauest 
0n0 Ds. $190 O87 g MOVE _R1,@UCBSL_DD_DPTR(RS) Buffer data flag 
8 28 GET _BYT :Get the packet Byte count 
8091 Fs 80 ORF 18 ROVEe” Geese Sem caes ie tae Sven ome 
~ :Buffer the e coun 
00D0 0540 AS 33 @UCBSC_DD_DPTR(RS)CRO] : “ : 
A7 ei : Before getting the data from the device, ensure the data packet 
A? § 3 byte count is correct. Failure to do so can cause the driver to 
A? 65 ; everuc ite yn pool should the byte count be incorrect. Note 
A? 64 ; that if the number of bytes — to be transfered is greater 
A7 65; than 128 (decimal), then the packet yte coynt must be 128. If th 
A7 $6 $ nyaber of oytes remaining to be transfered is less than or equal to 
a $ : 128, then the packet byte count must equal that number. 
52. 0091 cs 9A 03A7 $3 ” MOVZBL UCBse SPR(RS) ,R2 sGet the PBC 
51 4394 ei AC 0 MOVZWL ‘Set up R1 for the conpge isons 
51 OC fe 81 1 71 CMPW BSW "BCR(RS), Ri tls the BCR Less than 
a. BGEQU 0$ ~ ‘Branch not 
51 poco 3 3C 7 MOVZWL UCBSW_BCR(RS),R1 :Get the BCR 
1 § p1 BD 74 100$: CMPL ag R1 sls the PBR what it ought to be? 
63 12 ¢3 BNEG 698 :Branch if not (error) 
7 
8 
: 
4 
0 
4! 
38 
94 
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3 the users buffer, and then await t "s next byte. 
3 On return from MOVTOUSER, R1 points to s end of the packet buffer. 
50 02 9A . MOVZBL #DD_DATA,R ‘Put offset into RO 
51 0009 psp 9E MOVAB  aUCB$L_Dbd DeTR«RS){ROD, Ri :Get address of data 
52 0091 ¢ 9A novzBL ocese" SPRTRS).R sGet # of data bytes 
3¢ MOVTOUSER ‘Move data 
96 ; Catcylete the packet nochaus and compere it with the checksum 
97 ; received from she device. no match then the cote ues garbled 
98 ;: dur ng transmission and ian 0 operation must be retr 
99 ; On return from CHECKSUM, R1 points to the packet lier checksum. 
50 §1 ? MOVL 3Save pointer into buffer 
51 9900 5 ; MOVE Utah DD DPTR(RS).R1 Get buffer address 
2 1 SUBL3 von Be pte. the buffer Length 
04 4 BSBw CHE CSUR sCalculate the checksum 
61 5 CBP a + : Compare checksums 
6 BEQL § :Branch if no errors 


N 2 
= TUSB8 DC100 TAPE CARTRIDGE DRIVER 16- AX/VMS Macro V04-00 Pa | 
atts NEN g- 5 amet} 88: 13: F YORIVER. SRE IDDD RIVER.MAR; 1 - #9, | 
50 O1F4 ef a9 425 1107 69%:  MOVW  #SS$_PARITY,RO :Put error code in RO 
0137 ? 5 1 } BRwW CONT"ERROR sAttempt to retry operation 
r ii ; Subtract the packet byte count from the total byte count and continue. 
0091 cs 98 42D 111g 108: HOvZBu : os8, SPRCRS) RO :Get data packet byte count 
30c0 C 8g 4 é 11 SUBW BCR(RS) :Update byte transfer count 
31 0437 «1114 BRW Get” RE tat sAwait next byte from device 
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1116 ; 
143 ; The following code services a waite request by transfering data 
1113 3; from the user's buffer to the TU58. The transfer is made by 
1119 ; sending data packets of <= 128 bytes. When sending data we do 
1 : not have to worry about data over-run. 
1 : WRITE_DATA: sSend data to the device 
11 MOVB #DD_FLAG_DATA,= :Buffer data flag 
00D0 DS i é @UCBSL_DB_DPTR(RS) : 
1 § : Calculate the packet byte count. 
00CO C5 1108 ° CMPW =: UCBS$W_BCR(RS),- sCan we send a full packet? 
0080 a 11 ; #DD_MAX_PKT_BCNT : P 
7 11350 BGTRU Branch if yes 
51 00co C5 1131 MOVZBW UCBSW_BCR(RS),R1 ;Set byte count <= 128 
04 11 ¢ B58 zRejoin common code 
51 80 8F 11 10$: MOVZBW #0D_MAX_PKT_BCNT,R1 ;Set byte count = 128 
50 1134 208: MOVZBL #DD-DPBENT -Put offset into RO 
00D. 0540 $1 1135 MOVB  R1,SUCBSL_OD_DPTR(RS)CROD ;Put byte count into data packet 
o00co c5 1 i § SUBW R1,UCB$W_BCRTRS) Calc new UCBSW_BCR 
1138 : Transfer the data from the user's buffer to the packet buffer. 
1122 3 On return from IOCSMOVFRUSER, R1 = pointer into packet buffer. 
52 51 1141 ° MOVZBL R1,R2 yGet byte count 
5 02 1136 MOVZBL #DD_DATA,RO ;Put offset into RO ; 
00D0 D540 114 MOVAB @UCBS$L_DD_DPTR(RS)CROJ,RI ;Get address of data w/i data packet 
iiae MOVF ROMUSER sMove data 
1146 : Create the data packet checksum. On return from CHECKSUM, 
Pt 3 R1 points to the end of the data buffer. 
50 51 1149 ° MOVL _—R1,, RO :Save pointer into buffer 
51 0000 cs 1150 MOVL UCBSL_DD_DPTR(RS) ,RI :Get buffer address 
52 0 1 1151 SUBL3 R1,RO0,R2 :Calculate buffer length 
040€ 1126 BSBW CHECKSUM ;Calculate checksum 
81 50 iter MOV RO, (R1)+ 7Put checksum into buffer 
1185 : Send the data packet to the device. 
0000 C5 1139 : MOVL -UCB$L_DD_DPTR(RS5) ,- sGet buffer address 
00D4 CS 1158 UCBS$L~DD-MSGPKT(R5) 
51 D4 g 1159 SUBL3 ucBst DD“MSGPKT(R5) ,R1.RO Calculate buffer Length 
0008 ¢ 0 1160 RO,UCB$W-DD_MSGLEN(R5) ;Move to input cell 
1161 SEND_PACKEf :Send data packet 
FE81 1162 BRw GET_RESPONSE sAwait next byte from device 
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1164 : 
1165 : This code will get the end packet and interpret the device 
1388 3 3 status code. | 
116 Enp PACKET: sIntrepret the end packet 
ooro cS) S1—i—ié OD 1168 MOVB R1,UCBSB_DD_EPFLAG(RS) ‘Buf fer flag byte : 
1171 Read in the rest of the end packet, including the checksum. 
OOF 1 73 9E 1198 ; MOVAB UCBSB_DD_EPBCNT(R5),-  ;Get buffer address 
0004 ¢ 1174 UCest “oD pRSGPRT&RS) : 
0p BO 1175 MOVW #<0D_EP_CEN-1 Get buffer Length 
0008 C¢ 1328 ycesa. DB SASGLENCRS) 3 
110 GET_PACKET 3Get end packet 
1198 : Calculate the packet checksum and compare it to the checksum sent 
1B 3 by the device. If no match, then the data was garbled during 
1183 ; transmission, and the 1/0 request must be retrie 
51 OOFO CS’ 9E 1188 : MOVAB UCBSK_DD_EPADDR(RS),.R1 ;Get Command packet buffer address 
52 0 3 E4 1184 MOVZWL &< <DD 0 tp CEN = DD_CHKSM aLEN> R2 ;Get buffer Length 
059f 0 1185 BSBW CHECKS Calculate checksum 
ooFc cS) 65 B1 OQ4EA 11 $ CMPW RO, UCBSW_DD_EPCKSM(RS) | peewee: checksums 
07 #13 O4EF 11 BEQL ~=s«108 tBranch if match 
50 O1F4 BF B60 Fl 1138 MOVW asss_ PARITY,RO ;Put error code in RO 
6c 11 bere 1150 BRB CONT-ERROR sAttempt to retry request 
ott 113) 3 : Get the device status and see how things went. 
51 OOF3 CS 9A O4F8 1138 ios: MOVZBL UCBS$B_DD_EPSTS(RS),R1 ;Get device status code 
50 01 B80 O4FD 1194 MOVW +i RORAAL ,RO tAssume success 
00 ¢] 91 0500 1195 MPB 1,@60_STS NORMAL Test status 
7 18 050 1136 BGEQ DD ex xIT :Branch if success or success w/ retries 
B202 44 i> assumes value of 0 and 1 respectively 
b3g8 1199 : If we get this far, sonething went wrong 
0505 1200 ; Log a device error, and see if the devite~epect ttc 
505 1 83 3 error code can be mapped orreeesy to a VMS error code. 
505 1 g ; If not, then map the error into SS$_CTRLERR. Note that 
eRe : 37 3 the operation will not be retried for this type of error. 
90009000" GF 16 05 F 1205 ° JSB G*ERLSDEVICERR slog the error 
5 O1C4 BF 89 1 $ MOVW #SS$_NONEXDRV,RO z;Assume bad unit # 
51 8 f 91 19 : cHPB #00 ST TS. BADUNIT,R1 : 
50  O1A4 8F 80 516 1209 MOVW o38 MEDOFL,RO TAssume no cartridge 
ne Meet ae tt ae ty Bear a pacat 
50 025¢ or +4 3 = 1 MOV oes tAssume writelock error 
51 FS br 91 ; ‘ 13 CAPS #00 sts TUACeR. R1 ; 
50 O0OSC 8&F 90 C 1215 MOVW #SS$_DATACHECK,RO tAssume datacheck error 
51 €F 8F 1 0531 1 6 CRPB #00_STS _DATACHK, R1 : 
‘-e ; : : BEQL DD_EXIT™ 3 
3 ,. 8 : Map all other errors into CONTROLLER ERRORS, but 
537 1220 ; return device status code in device dependent 


‘Saas STARTIO ROUTING © “ARTRIOGE md ? Bree = 198e Osta:it EORIVER.sReaDODRiveR.mar:1 “2° 23, 
4 ! 1 : field of the 10SB. 
50 0054 8F B60 : : § : MOVW #SS$_CTRLERR,RO zAssume controller error 
: : Fall through to DD_EXIT 


COMMON EX] 


1 
1009 ; 
1380 ; 
6p_ExIT: 
1234 
1035 
iB 1539 | 
78 1 g : 
coco 28 HE HEP 1885 
es" 5 re ; 7 $52 i 3 
38 32 g 559 104 
1 D6 055C 12466 
SE 1245 
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~SBTTL COMMON EXIT ROUTINE 


Common exit routine. Exit status is in the low word of RO. 


3; Common - Bs i 

MOVZWL RO So. :Save 1/0 s 

JSB 6* {OC $0 LAGBUF ILL TFALL diagnostic buffer if present. 
RELCH sRelease channel 
Put the I0SB info into RO and R1 and exit the driver. 
POPL Restore 1/0 status 
SUBW3 =©6UCBSW_BCR(RS) ,- :Calc bytes transferred 

UCBSW~BCNT (RSS ,R2 

ASHL #16,R2,R2 ‘shift count to high word 
BISL R2,R0 :Merge count into status longword 
CLRL R1 :Clear second status Langwor 
REQCOM :That's all folks! 
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ee ! rt 4 -SBTTL Controller error handler 
4 1269 ; This code attempts to recover from errors encountered during 
4 | ; a data transfer. Control is transferred to DD_RETRY | on 
ee ! 3 device timeout recovery. All other errors trap to CONT_ERROR. 
64 (1 : ; The only way to recover from an error is to set the controller to 
64 1254 ; a known state, via the TUS8 INIT sequence, and retry the entire 1/0 
64 1255 ; operation. If the INIT sequence fails, then exit with a controller 
oe : § 3; error. 
4 1 3 CONT_ERROR: Recover from controller error 
oucce cS = 50 Hs 4 1 MOVZ7WL RO,UCBSL_DD_BUFWIN(RS) ;Save the error status code 
F4 0 0569 1260 Vv :Save device registers 
00000000'GF 16 836 ! ] JSB G*ERLSDEVICERR jLog the error 
572 1 86 3; This entry point is used by the timeout routine. It is 
572 1264 ; necessary to enter here to avoid overwriting the register 
B25 : 2 3 save area in the UCB that was written by the timeout routine. 
037 1569 bD_RETRY: 
44 10 0572 1268 BSB8B RESET CONTROLLER sReset the device controller 
OF 50 34 0574 1 $9 BLBC :Branch if controller init failure 
0080 C5 7 0577 1270 DECB UCB$B_ERTCNT(RS) ;Decrement error retry count 
09 15 0578 1271 BLEQ 10$ zBranch if no retries left 
OF €0 0570 1 BBS #10$V_INHRETRY,- Branch if no retry requested 
03 009A C5 OS7F 127 UCBSW_FUNC(RS) ,10$ 3 
FO7D 31 0583 1274 BRW DD_TRYAGN zRetry 1/0 function 
50 o00cc CS BO 0586 1275 10$ MOVW UCBSL_DD_BUFWIN(RS),RO ;Restore the error status code 
AF 11 0388 1676 BRB DD_EXTT zExit the driver 


EL 
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: ! 4 a -SBTTL TIMEOUT and POWERFAIL recovery 
D 1281 ; This routine is called in the event of a device timeout. 
> 3% ¢ ; The timeout could be caused by a failure of the TU58 hardware 
dD 1 ; or the hardware connecting the TU5S&8 to the host machine, or 
4 ! : ; the host machine could have undergone powerfail recovery. 
4 ! § 3 Input: 
D 1 ; 3 IPL = Device IPL 
D 1 3 (SP) = Return address 
2 > oe y 3 RO-R3 = = “Scratch 
D 1291 ; RG = CSR address 
58D 1 3 3 RS = UCB address 
2a) 1504 
58D 1295 DD_TIME_OUT: 
0000 30 O58D 1 38 BSBW DD_SAVEREG sMove registers into UCB 
51 4 05 129 CLRL R1 Prepare to disable interrupts 
tet 0 0592 1298 BSBW RCSR sDisable receive interrupts 
O2F 0 0595 1299 BSBW SCSR sDisable transmit interrupts 
598 1300 SETIPL UCBSB_FIPL(RS) sLower IPL to FIPL 
05 €4& O59C 1301 BBSC #UCBS7_POWER,=- :Power failure? 
14 64 AS 59E 1 08 UCB$W_STS(R55,DD_PWF  :Branch if yes 
00000000'GF 16 O5A1 130 JSB G*ERLSDEVICTMO :Log timeout error 
6 E SA7 1 3 BBCC #UCB$V_TIMOUT,- Reset status 
00 64 A OSA9 1305 UCBSW_STS(R5),10$ 3 
O22c BF 3C OSAC 1306 10S: MOVZWL #SS$_TIMEOUT,- ;Save the timeout status 
OOCcC C5 0580 1307 UCBSC_DD_BUFWIN(RS) : 
BD 11 938 : + BRB DD_RETRY sImit the controller and retry the 1/0 
0585 1310 
088s 1312 
Bee 1H {aru 
0585 1315 ; This routine is branched after the device timeout caused by 
0585 1 1 ; @ powerfail. The 1/0 operation is retried. Note that the 
beee 1317 ; controller has already been reset by the unit initialization 
0585 1318 ; routines, which are called by the operating system as part 
0585 1319 ; of its normal powerfail recovery. 
ae 
FCBB «= 331 «05BS5 «61322 =O BRW DD_RESTARTIO ;Start function over again 
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+ 
RESET_CONTROLLER 


This routine will sey the device controller to a known state. 
To initialize the TUS8 controller, it is necessary to perform 
the following steps: 


- Set the BREAK bit in the transmitter CSR and hold 

it for at least two character times. 

Clear the Break bit. 

Dump the receiver buffer. The contents are unimportant. 
Send two INIT characters. 

the reciever buffer. The response must be equal to 
DD_FLAG_CONT. If not, the initialization sequence failed. 


~w 


MAPA AI 


w 


Seer eee ahah ah sh ab ab ab ab ah ab ab ab ab ab ab ab abd 


to lock out all interrupts. 


Input 
RO-R3 = = Scratch 
RS = CSR address 
RS = UCB addres 
Output: 


RO = SSS_NORMAL if the reset worked, SS$_CTRLERR if not. 


RESET_CONTROLLER: 
; Set the BREAK condition. Clear it after a short wait. 
MOVZWL #DD_XCSR_M_BREAK,R1 ;Put BREAK into R1 
DSBINT sDisable interrupts 
BSBW SCSR :Set BREAK condition 
TIMEWAIT #<2*MAXCHRTIM>,41,40,W ;Loop for 2 character times 
CLRL R1 :Clear R1 
BSBW SCSR :Clear break condition 


: Dump the receiver buffer. 


6sBw © DUMP_RECVR_BUF :Dump buffer and discard contents 


: Send two INIT characters. 


MOVAL UCBSL_DD_MSGPKT(RS),RO ;Get address of buffer pointer 


MOVAW  2+UCBSL_BD_BUFWIN(RS),(RO);Get address of message buffer 
MOVW #TwO_INTTS7a(RO) Put INIT characters into buffer 
MOVW sSave # of bytes to send 


i RO) 
BSBW SNO PKT_NOINT Send the packet 
RO, 208 Branch if error 


; The controller should respond with a DD_FLAG_CONT. 
3; If it does not, then exit with a controller érror. 
; RO will contain a meaningful status code on return 


The initialization sequence must be done with IPL equal to IPL_POWER 
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; from dump_recvr_buf. 
6sBw DdUMP_RECVR BUF :Get controller response 
MOVZWL gsss “NORMAL ,RO TASSume success status 
cme . D. D_PLAG_ CONT,R1 eis ie the correct response? 
ranc rue 
MOVZWL #SSS_CTRLERR,RO Set error status 
208: ENBINT sEnable interrupts 
RSB sReturn 


So 
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OUTING eR BaeEpa19be BOs12:41 EDAIVER.SRCIDDDRIVER.man;1 "8% fy 
a -SBTTL REGISTER DUMP ROUTINE 
DD_REGDUMP = REGISTER DUMP ROUTINE 
; FUNCTIONAL DESCRIPTION: 


; This routine is called to save the device registers in a specified 
; buffer. It is called from the device error logging routine and from 
; the diagnostic buffer fill routine. 


INPUT 
; TER SAVE BUFFER 
NTROL STATUS REGISTER 


0 

ROL BLOCK 

ED INTO THE SPECI 
OF vs NEXT EMPTY 
AND R2 ARE PRESER 


: S: 

3 RO = ADDRESS 
3 R4 = ADDRESS 
3 . RS= ADDRESS OF U 
bp 


oo 


R R 
) C 
N T 


F 
Vv 


E 
EVICE 
IT CON 
; OUTPUTS: 
DEVICE REGISTERS ARE MOV IED BUFFER. 
RO CONTAINS THE ADDRESS LONGWORD IN THE BUFFER. 
ALL REGISTERS EXCEPT R1 ED. 


_REGDUMP : 
MOVL #DD_ERRBUF _LEN_L,(RO)* ;Insert # of Longwords dumped 
MOVL #00-NUM_REGS ;Store number of registers 
MOVAW UCBSW_DB XCSR(RS) ,R1 Get address of first req 
R1)+,(RO)+ Dump registers into buffer 
SOBGTR R2,10$ :1f GTR = more to go 


Now dump the Command and End packets to the error buffer. 


NWO 

MOMOO 

PARA AAAAAAAAAAAAAAAAAAAO Ce 
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DUNN MO NSB tt tt 


WO ODN UNE WN (OOD NOUN EW 0 OONO UE Ur Be 


kk ak tk ak kk kk tk tk tt tt 8 ot 2 $s 
tek ek eee ee ek ek ek ek el ak ek Dek tak, tak Da ak ed We a Mah nh enh nh nh mh ah nh nnn) 


RPI 3 BODO DOO O000 000000000 


06 : 
DO 06 MOVL #7 ,R2 Get length of combined packets 
D0 06 20$: MOVL (R1)+,(RO)+ :Dump Longword to buffer 
F5 063 SOBGTR R2,20$ :1f GTR = more to go 
05 0638 RSB ;Return 
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C 1425 -SBTTL INTERRUPT SERVICE ROUTINE 
eee 
c 16 8 : DDSINT = TUS8 INTERRUPT ROUTINE 
C 16 p : This routine is entered via a JSB instruction when an 
: 1? : interrupt occurs. The state of the stack on entry is: 
C 14 ; : O(SP) = ADDRESS OF IDB ADDRESS. 
C 1434; 4(SP) = SAVED RO. 
C 1435; (SP) = SAVED R1. 
C 1436; 12(SP) = SAVED R2. 
C 1437; 16(SP) = SAVED R35. 
C 1438; (SP) = SAVED R4. 
C 1439; 4(SP) = SAVED RS. 
C 1440; 3538} = SAVED INTERRUPT PC 
: ree: $ (SP) = INTERRUPT PSL. 
: 1448 3 Interrupt dispatching occurs as follows: 
C 1645 6D_INT:: 
C 1248 MOVL a(SP)+,R3 ;Get IDB address 
F 144 MOVa 4 :Get CSR and UCB address 
42 1448 MOVa UCBSL_FR3(R5) ,R3 zRestore R3 and R4 
46 1449 BBC #UCBSV_INT,=- sIf clr -interrupt not expected 
48 1450 UCB$W_STS(R5) ,DD_UNSOLNT 
48 1451 JMP auceSC_FPC(RSS ;Jump to interrupt ret. address 
rt 1036 DD_UNSOLNT: 
rt 1e38 : In order to dismiss the interrupt, the receiver buffer must be read. 
uf 1636 . BBC #0D_V_CONSOLE,- Branch if not console device 
50 145 UCBSW-TUS8STS(R5),20$8 ; 
54 1458 MFPR #PR ‘ zRead buffer for CONSOLE TUS8 
57 1459 10$: POPR #*°M<RO,R1,R2,R3,R4,R5> Restore RO-RS 
59 1460 REI sDismiss the interrupt 
5A 1461 208: MOVW DD_RBUF (R4),R1 zRead buffer for UNIBUS TUS8 
st, 1666 BRB 10$ sDismiss the interrupt 
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DD_SAVEREG 
ABSTRACT: 


"OrSeei18he Oosieii7 FOmIVER. saedoppRiver.mar:1 2% 


LOCAL SUBROUTINES 


Store the device registers in the UCB, so they may 
later be passed to the error logger. 


OU 
1465 
1486 
1288 
1289 
1470 ; 
1471 ; 
1472 ; 
1475 ; 
1474 ; INPUT R4 = CSR Address 
1302 : RS = UCB address 
1273 3 OUTPUT: Registers saved in UCB. 
1479 3 SIDE EFFECTS: RO,R2 are over-written. 
1481 ; Note that for CONSOLE devices, the xmitter gts is 
660 14 § 3 a write-only register. Code around this by sav ing the 
660 1483 ; image ott the buffer as it is loaded in the routine 
660 1484 ; SEND_PACKET. Also note that the MFPR instruction has 
660 1485 ; a longword content. so the CONSOLE devices registers 
660 14 $ 3 must be saved caret ully, so other locations in the UCB 
660 1487 ; are not ceapurtbtan. 
660 14 : 3 
ret 1489 ;-- 
60 1490 bD_SAVEREG: ;Save device registers. 
52 OODA CS 3& 0660 1491 MOVAW UCBSK_DD_REGBUF (RS) ,R2 tGet address of buffer 
20 El 066 1236 BBC #0D_V-CORSOLE,- ;Branch if not console device 
12 gece ¢ 667 149 UCBsu, Tus eTSERS), 10$ 
0 3 D 6B 1494 MFPR a S$TS,RO :Get xmitter CSR 
8 5 8 ogk 1495 MOVW )+ sSave xmitter CSR 
! 02 a2 1C 0B 06 1496 MFPR Bi _CSRS,2(R2) :Save receiver CSR 
5 1D =6—bB 75 149 MFPR #PRS resent :Get receiver buffer 
04 A2 50 80 678 1638 MOVW RO,4TR2) Save. receiver buffer 
7C 149 RSB :Retu 
82 +4 AG = «BO 7D 1500 10$: MOVW DD_XCSR(R4),(R2)+ ‘Save  eutetes CSR 
82 AS BO 0681 1501 MOVW DD" XBUF (R4), (R2)+ :Save xmitter buffer 
82 64 B80 0685 15 § MOVW DD_RCSR(R4),(R2)+ tSave receiver CSR 
82 02 A4 t! 688 15 MOVW DO_RBUF (R4), (R2)+ :Save receiver buffer 
68C 1504 RSB :Return 
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GET_PACKET_C 


ABSTRACT: Get a message packet from a console TUS8. Because of 
the unique nature the TUS8, this routine is optimized 
for speed. The TU58 generates an inordinate number of 
interrupts, and can use a large fraction of the processor 
during normal operation. In order to reduce overhead, some 
extreme measures have been taken in the coding of this routine. 


INPUT: R4 = CSR address 
R5 = UCB address 
UCBSL_DD_MSGPKT(R5) = Message packet buffer address 
UCBSW_DD_MSGLEN(R5) = Message packet buffer length 


OUTPUT: None. 


NOTES: 1) This routine enables the device interrupts at the 
beginning of the message packet and does not 
disable them until the entire message packet has 
been transferred. 


2 


~ 


The WEIKPCH macro is not used. Instead, the code 
is placed inline to avoid the cost in time inherent 
in the macro. 


3) To save the overhead of IOFORKing after each byte 
transferred, the routine will not IOFORK until 
the entire message packet has been transferred. 


4) The Large time (40 seconds) spent waiting for a device timeout 
is necessary because of the slowness of the TUS8. It takes on 
the order of 30 - 40 seconds for the device to position the 
tape from one end of the cartridge to another. 
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PDP PAAPEDP ADA DAA PA AA AAA AAA AAA AAA AAA AAA AAA AAA A AAA AAS 


GET_PACKET_C: :Get a message packet 


; The following code is done only once, to set up 
3 for the optimized interrupt service loop. 
, MOVL  (SP)+,UCBS$L_DPC(RS) :Store return address 
BICW sucBsA TAROT, = :Clear timeout occurred bit 
uCBSW_STS(R5) : 
: If this is an MRSP TUSB then set the interrupt dispatch address to 
3 point to the code that will handle the MRSP protocol. Otherwise 
> set the dipatch address to a routine to handle the normal RSP TU58. 
i 


MOVAL L*300$,UCBSL_FPC(RS) zAssume this is an MRSP TUS8. 
BBS #00_V USE Aner - :Branch if we are to use MRSP 
U58STS(RS) 108 


uCcBSw- : 
MOVAL Meets UcoaL FRE KASS :Set address for RSP TUS8 


>PrPooooovnoso 


ArOccececaaao 


the IPL must be restored before returning to the caller's caller. 
Failure to do so will cause a BUGCHECK in the fork process dispatcher. 
Note that R35 and R4 have already been saved, so it is not necessary 

to do so again. Also note that since interrupts and timeouts are not 
disabled until all the data has been transfered, it is not necessary 
to set the INTERRUPT and TIMEOUT enable bits for each byte transferred. 
For that reason, the timeout time is computed only once, and is large 
enough to allow time to transfer the maximum number of bytes possible, 


ee Nu 3 
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00D4 C dO A 108: MOVL UCBSL_0D Pj ptleammeaal Get address of message packet 
ig A UCBSL_FR3(R5) : 
0008 C 3¢ MOVZWL UCBSW_DD PERL EMtRS) © Get Length of message 
GA B8 UCBSL_FR&(R 3 
6BA DSBINT UCBSB_DIPL(RS) sLock ous device interrupts 
1¢ 00000040 ef DA 1 MTPR #0D_RESR_M_RIE,#PRS_CSRS;Enable interrupts 
Ag 8 BISw #uCcBSm TIMTUCBSM_ INT, ~ sSet INTERRUPT and TIMEOUT enabled 
64 A A UCBSW_STS(R5) : 
4 C1 C ADDL3 #LONG WAIT,- sCompute timeout time for entire transfer. 
00000000 ° GF G*EXESGL ABSTIM,- sThis will save recomputing it for each 
6C AS UCBSL_DUETIM(RSS tbyte transferred. 
This code is executed for the first byte received from the device. 
5 ALL succeeding interrupts for bytes bytes received will go through 
5 another path, which is faster. This is done to save several 
; instructions that need not be executed again. Note for this path 
3 
5 
5 
5 
; 


AAA -4 4-4-4 4-44-44 44-44-1818 


BB eo Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


0 
0 
which is 198 bytes of data plus some RSP protocol overhead. 
00$: $ENBINT sAllow device interrupts 
05 RSB Return 
FEBS «WORD DD_TIME_OUT-. :0ffset to timeout routine 


This is the fast interrupt servic loop for MRSP protocol 
data transfers. This path exists to save testing te MRSP 
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60B 15 : bit in the UCB for each byte transferred. Note that the interrupt 
608 : is dispatched here to avoid the cost of an RSB back to the device's 
ree] 3 interrupt dispatcher. Of course the interrupt dispatcher JMPs here. 
10 AS 33 7D 0608 2008: MOVa = R3,, UCBSL FR3CRS) sSave R3 and R4 
F BA Q6DF 16 $:  POPR #*M<RO,RT,R2,R5,R4,R5> ;Restore registers from the interrupt 
02 €1 ? R sDismiss the interrupt 
FEAB Fi ? -WORD DD_TIME_OUT-. s0ffset to timeout routine 
E4 16 : Dump the receiver buffer (word sized) into R1. 
E4 1605 ; After saving the data, pennausedee the receipt of the data. 
52 é : This will cause the TUS8 to send the next byte, if any. 
51 1D 0B £4 $008:  MFPR #PRS_CSRD,R1 sDump receiver buffer to R1 
1fF 8=610 ys £7 MTPR #ACK CHAR ,A#PRS_CSTD Send ack. character 
83 é 9 EA 400$: MOVB 1,(R3)¢ Put byte in message buffer 
54 OF e : SOBGTR R4,200$ Branch if more to go 
F 13; The data has been transferred. Disable device interrupts 
re ' 3 and create a fork process to continue on with the 1/0 operation. 
| 1¢ 8 DA 06F 16 5008 MTPR #0 ,@PRS_CSRS sDisable device interrupts 
AA O6F 1 BICW wut $m TIA yCOsh INT. sClear INTERRUPT and TIMEOUT enabled 
64 A 6F 1 uss wW_STS(RS) : a % 
FFFFFFE2 EF 9F b 61 PUSHAB L*2508 sSet return address of ‘‘caller’s caller 
| 
| 
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1620 
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1856 
1856 | 
16 8 ; 
1629 ; 
FE8) 1630 
2} 1D «OB 1631 600$: 
05 51 «OF €1 16 § 
FFFFEG9 EF ODE 16 
po.=2O lid 1634 
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;Get back to fork context 
j;Always return overrun status 


OF ORK 
MOVZWL #SS$_DATAOVERUN,RO 
;Return 


JMP @UCBSL_DPC(RS) 


Che f for data overrun. If an overrun occurred, Cc 
device interrupts and get back to fork context. 
reset “the “oping ARS mote Saet no overruns will (should) 


occur when me: MRSP, so this test does not have to be made 
for MRSP Tus 

oo 00 Na a th 4 Wage to timeout routine 
MFP aPRe ump receiver buffer to R1 
BBC. V_ERROR,R1,400$: op S- if no overrun 


MOVAL 


BRB sBranch to common exit code 


"$$EP=1986 80:12:47 EORIVER. SRCIDDDRIVER.MAR: 1 


#00 DRS 
CCONT, uF eR uCcB$L _bpc(RS); ;Return to controller reset routine 


OC AS 00000769'EF 
00 


SN NNN 
SN NNN 
Se Se tee 


Sk 3S 
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7 
is 
7 1 
3c 600739)=«=16 
73D 16 
73F 616 
DA 0746 16 
AB O074D 16 
74F 16 $ 
C1 7 16 
7 1690 
7 1691 
75A 1692 ; 
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TC 


The following code needs to be done only once, to 
set things up for the interrupt service loop. 


(SP)+,UCBSL_DPC(RS) :Store return address : 
#UCBSA T,- iClear timeout occurred bit 


0 
- - 
7 1 § -SBTTL SEND_PACKET_ 
f : zee 
, 1635 > SEND_PACKET_C 
7 1641 ; ABSTRACT: Send a message packet to a ggreeke TUS8. Because of 
7 ot $ the unique nature the TU58, this routine is optimized 
7 1645 ; for speed. The TU58 generates an inordinate number of 
7 1644 ; interrupts, and can use a large fraction of the processor 
7 1645 ; during normal operation. In order to reduce overhead, some 
4 1968 : extreme measures have been taken in the coding of this routine. 
7 1848 > INPUT: R4 = CSR address 
7 1649 ; RS = UCB address 
7 1650 ; UCBSL_DD_MSGPKT(RS5S) = Message packet buffer address 
4 192) : UCBSW_DD_MSGLEN(R5) = Message packet buffer length 
, 1688 : OUTPUT: None. 
? 1655 > NOTES: 
7 1889 : 1) This routine enables the device interrupts at the 
7 1658 ; ee eecre of the message packet and does not 
7 1659 ; disable them until the entire message packet has 
4 1969 5 been transferred. 
8 1666 : 2) The WEIKPCH macro is not used. Instead, the code 
7 1665 ; is placed inline to avoid the cost in time inherent 
8 ec) ; in the macro. 
7 1866 : 3) To save the overhead of IOFORKing after each byte 
7 1667 ; transferred, the routine will not IOFORK until 
4 1933 3 the entire message packet has been transferred. 
a730 10 | 
1 § SEND_PACKET_C: :Send a message packet (console) 
1674 
167% 
i 
He 
: 
4 


L_FRS(R5) : 

MOVZWL UCBSu_DD FS LENCRS) 5° ;Get length of message 

DSBINT UCBSB-DIPL(RS) tLock out device interrupts 

MTPR #00_XCSR_M_TIE,#PRS_CSTS;Enable transmitter interrupts 

BISW suCBSA TIRT CBn_INT,- Set INTERRUPT and TIMEOUT enabled 

ADDLS #LONG WAIT,- Comput timeout time for entire transfer. 
G*EXESGL_ABSTIM,- This will save recomputing it for each 
UCBSL_DUETIM(RSS ibyte transferred. 
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This code is exgcuted for the first byte received tres the device. 
ALL succeeding interrupts for bytes bytes received will go through 
another path, which is faster. This is done to save several 
instructions that need not be executed again. Note for this path 

the IPL must be restored before returning to the caller's caller. 
Failure to do so will cause a BUGCHECK in the fork process dispatcher. 
Note that RS and R4 have already gous aved, so it is not necessary 

to do so again. Also note that since interrupts and timeouts are not 
disabled until all the data has been transfered, it is not necessary 

to set the INTERRUPT and TIMEOUT enable bits for each byte transferred. 
For that reason, the timeout time is computed only once, and is Lorge 
enough to allow time to transfer the maximum number of bytes possible, 
which is 1 bytes of data plus some RSP protocol overhead. 


ENBINT sAllow device interrupts 
$B ;Return 
«WORD ODD_TIME_OUT-. :Offset to timeout routine 


This is the second and faster path through the wait-for- 
cage gh eg beget logic. It is reasonable to have 

two paths, as the first path is only needed for the first 

byte sent, and there will always be at least 14 bytes (the 

Length of a command packet) sent. This path saves two instructions, 
as tt would be necessary to save and restore the IPL in the 

other path. Note that the interrupt is dismissed here. This 

is to save the nqesegere RSB to return to the interrupt dispatcher. 
Of course the driver's interrupt dispatch JMPs to the location 
stored in UCBSL_FPC within the device UCB. 


mMOVa R3,UCBSL_FR3(R5) Save R3 and R4 

POPR #*M<RO,RT,R2,R3,R4,R5> ;Restore registers from the interrupt 
REI sDismiss the interrupt 
-WORD DD_TIME_OUT-. Offset to timeout routine 


Get the data byte from the packet buffer and send it 
to the device. If there is more data to send, go through 
the second wait-for-interrupt-keep-channel path. 


MOVZBL (R3)+,R1 :Get data y and point to next byte 
MTPR  ——-R1,#PRS_CSTD :Send data byte 

MOVW R1,UCB$Q_DD_xBuUF (RS) Save data byte (register is write-only) 
SOBGTR R4,200$ ;Loop if more data 


The data has been transferred. Disable device interrupts 
and create a fork process to continue on with the 1/0 operation. 


BICW #UCBSM TEA yreen Int. :Clear INTERRUPT and TIMEOUT enabled 
uCBSw_STS(R5) : ; 
MTPR #0,@PR$_CSTS :Disable device interrupts vs 
PUSHAB 1*250$ :Set return address of ‘caller's caller 
OF ORK ;Get back to fork context 

JMP @UCBSL_DPC(RS) ;Return 
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.SBTTL GET_PACKET_U 


—— 


Sete ee 
* 


: GET_PACKET_U 


; ABSTRACT: Get a message packet froma ynibus TUS8. Because of 

; the unique nature the TUS8, this routine is optimized 

for speed. The TU58 generates an inordinate number of 
interrupts, and can use a large fraction of the processor 
during normal operation. In order to reduce overhead, some 
extreme measures have been taken in the coding of this routine. 


INPUT: R4 = CSR address 
R5 = UCB address 
UCBSL_DD_MSGPKT(RS) 
UCBSW_DD_MSGLEN(RS) 


OUTPUT: None. 


= Message packet buffer address 
= Message packet buffer length 


NOTES: 1) This routine enables the device interrupts at the 
ore tnn ne of the message packet and does not 
disable them until the entire message packet has 
been transferred. 


2) The WEIKPCH macro is not used. Instead, the code 
is placed inline to avoid the cost in time inherent 
in the macro. 


3) To save the overhead of IOFORKing after each byte 
transferred, the routine will not IOFORK until 
the entire message packet has been transferred. 


‘CD CD OD OD CD Cd OD GD Cd CD CD CD OD CD CD CD CD CD CD CO CD CD CD CDCDCDCDODOCDCDCECDODODODCD AO 


4) The large time (40 seconds) = pans waiting for 2 device timeout 
is meseery ee of the slowness of the TU5S8. It takes on 
the order of 30 - 40 seconds for the device to position the 
tape from one end of the cartridge to another. 


GET_PACKET_U: :Get a message packet 
: The following code is done only once, to set up 
: for the optimized interrupt service loop. 
o09c cS —s BE-~—S sé : MOVL (SP)+, UCBSL_DPC(RS) Store return address 
0040 BF AA BICW #UCBSA 11nogT .@ iClear timeout occurred bit 
64 AS UCBSW_STS(R5) 3 
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799 3; If this is an MRSP TUS8 then set the interrupt dispatch address to 
799 3: point to the code that will handle the MRSP protocol. Otherwise 
44 : 3 set the dipatch address to a routine to handle the normal RSP Tu$8. 
Oc AS O00007E1 "Et 33 799 9 MOVAL L*300$,UCBSL_FPC(RS) sAssume this is an MRSP TUS8. 
; E 7A 8 BBS #00 V USE ARSE - :Branch if we are to use MRSP 
08 00CA C 7A UCBSW"TUSBSTS(R5S),108 : 
Oc AS 1O'EF DE O7A 0 MOVAL L*600$,UCBSL_FPC(RS) Set address for RSP TUS8 
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0004 C DO O7AF 1803 108: MOVL UCBSL_DD Pegent tas) .= Get address of message packet 
10 A 78 1804 UCBSL-FR3(R5) : 
14 AS 54 dO 78 1805 MOVL RG ycest FR4(R5) sSave CSR address 
789 1 : DSBINT UCB$B_DIPL(RS) “Lock out device interrupts 
64 00460 8 BO O70 1 MOVW #0D_RUSR_M_RIE,DD_RCSR(RS); Enable receiver interrupts 
os x A 4s : 3 BISwW sUCESA  TIMTUCBSM_ INT, - sSet INTERRUPT and TIMEOUT enabled 
34 cl O7¢c9 1 19 ADDL3) #LONG-WAIT,= sCompute timeout time for entire transfer. 
00000000" GF 7(B 181 G*EXESGL_ABSTIM,- :This will save recomputing it for each 
6C AS gp : ig UCBSL_DUETIM(RSS jbyte transferred. 
702 1814; This code is exgcuted for the first byte received from the device. 
7D2 +1815 ; ALL succeeding interrupts for bytes bytes received will go through 
702 1 i$ 5 another path, which is faster. This is done to save several 
702 1817; instructions that need not be executed again. Note for this path 
702 1 18 3 the IPL must be restored before returning to the caller's caller. 
702 1819 ; Failure to go so will cause a BUGCHECK in the fork process dispatcher. 
702 1820 ; Note that RS and R4 have already been saved, so it is not necessary 
702 1821 ; to do so again. Also note that since interrupts and timeouts are not 
07D2 1 § 3 disabled until all the data has been transfered, it is not necessary 
702 #1 3 to set the INTERRUPT and TIMEOUT enable bits for each byte transferred. 
7D2 18246; For that reason, the timeout time is computed only once, and is large 
7D 1825 ; enough to allow time to transfer the maximum number of bytes possible, 
tA : § : which is 128 bytes of data plus some RSP protocol overhead. 
07D2 1828 100$:  ENBINT sAllow device interrupts 
05 0705 1829 fe Return 
FDB7 444 : 4 -WORD ODD_TIME_OUT-. Offset to timeout routine 
870 1 ¢ : This is the fast interrupt servic loop for MRSP protocol 
708 1 ; data transfers. This path exists to save best one the MRSP 
0708 1834 ; bit in the UCB for each byte transferred. Note that the interrupt 
8708 : » 1s Srepenehee mo to one d the soot . — beck Ma iy 
708 : § 3 nterrup spatcher. course the interrup spatcher s here. 
10 a5 53 7D 0708 1838 2008: MOVQ = R3, UCBSL_FR3(RS5) pSave R3 and R4 
3F §6©BA 6(070C:)«=—21839 2508: POPR #*°M<RO,RT,R2,R3,R4,R5> ;Restore registers from the interrupt 
02 O7DE 1840 REI sDismiss the interrupt 
F DAE oF : rt «WORD DD_TIME_OUT-. sO0ffset to timeout routine 
7E1 1 rk} ; Dump the receiver buffer (word sized) into R1. 
7E1 1844 ; After saving the data, ee an the receipt of the data. 
3 Ss w cause the o sen e next byte, if any. 
43 : rf: This will the TUS8 t d th t byt f 
51 02 A46 3C O7E1 1 5 $00$:  MOVZWL DD_RBUF(R4),R1 sDump receiver buffer to R1 
06 ae 10 7ES 1 48 MOVW #ACK CHAR,DO_XBUF(R4) Send ack. character 
83 = 1 7E9 1849 4008: MOVB 1, (R3)+ Put byte in message buffer 
00D8 C5 8 7EC 1850 DE CW UCBSW_DD_MSGLEN(RS) ;Decrement byte count 
E6 4 a ! 1 BGTR $ :Branch if more to go 
7F2 1 38 : The data has been transferred. Disable device interrupts 
Mi ! 22 3 and create a fork process to continue on with the 1/0 operation. 
64 9 BO O7Fe 1 $ §00$: mOvw  #0,0D_RCSR(R4) sDisable receiver interrupts 
7F 1 BICW #ucBsA 120 USSR INT = :Clear INTERRUPT and TIMEOUT enabled 
64 A 7F7? (1 3 uss W STS(R5) 3 a, t a 
FFFFFFDD EF OF O7F9 1 PUSHAB 1L*2508 :Set return address of ‘‘caller's caller 


- TUuS8 DC100 
ET_PACKET_U 
7FF 1 9 10FO 
50 gs 8 8F 35 .% AayiuL #SS$_DATAOVERUN,RO 
C 0S A ! § JMP @UCBSL_DPC(RS) 
18646 ; —— for data overrun. 
1 9? 5 dev 
; 1 § 3 reset the controt ier, 
1867 ; occur when ygir 
: ! o8 3 for MRSP TU 
1 $ WORD OD_TIME oyr-. 
02 a4 3 1871 600$: MOVZWL “RBUF TR4) 
51 OF 1 187 BBC RBUF _V 
FO46 EF ODE 18 187 MOVAL t>conT, ERROR. ucB 
CF 11 21 1874 GeB 
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3Get back to fork context 
ere return overrun status 


TAPE CARTRIDGE DRIVER : = Hab 9 9: 13: $3 


If an overrun occurred, gresste 
ce interrupts and get back to fork context. 

hat no overruns will (should) 
ng MRSP, so this test does not have to be made 


sOffset to timeout routine 
‘Dump receiver buffer to R1 
R1,400$: Branch if no overrun 
_bPC(R5) Return to controller reset routine 
sBranch to common exit code 
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; SEND_PACKET_U 
ABSTRACT: Send a message packet to a unibus TUS8. Because of 


the unique nature ef the TU58, this routine is optimized 
for speed. The TU58 generates an inordinate number of 
interrupts, and can use a large fraction of the processor 
during normal operation. In order to reduce overhead, some 
extreme measures have been taken in the coding of this routine. 


R4 = CSR address 
RS = UCB address 
UCBSL_DD_MSGPKT(RS) = Message packet buffer address 
\'CBSW_DD_MSGLEN(RS) = Message packet buffer Length 


OUTPUT: None. 


1) This routine enables the device interrupts at the 
beginning of the message packet and does not 
disable them until the entire message packet has 
been transferred. 


2) The WEIKPCH macro is not used. Instead, the code 
is placed inline to avoid the cost in time inherent 
in the macro. 


3) To save the overhead of IOFORKing after each byte 
transferred, the routine will not JOFORK until 
the entire message packet has been transferred. 


END_PACKET_U: :Send a message packet (unibus) 


The following code needs to be done only once, to 
set things up for the interrupt service loop. 


MOVL (SP)+,UCBSL_DPC(RS) ;Store return address 
BICW #UCBSA_TIMOUT,- :Clear timeout occurred bit 


U : 
MOVAL L*300$ RS) iSave interrupt dispatch address 
MOVL UCBSL 5).- ;Get address of message packet 


U : 

MOVL R4 ,UCBSL_FR4(R5) :Save CSR address 

DSBINT UCBS$B_DIP “Lock out device interrupts 

MOVY #DD_XCSR_M TIE, DD_XCSR(R4): Enable transmitter interrupts 
BISW sUCBSA, TIRTUCBSM INT,- ;Set INTERRUPT and TIMEOUT enabled 


ADDL3) #LONG WAIT,- Compute timeout time for entire transfer. 
G*EXESGL ABSTIM,- This will save recomputing it for each 
UCBSL_DUETIM(RSS :byte transferred. 


This code is executed for the first byte received from the device. 
ALL succeeding interrupts for bytes bytes received will go through 
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nother path, which is faster. This is done to save several 
nstructions that need not be executed again. Note for this path 

ghe IPL must be restored before returning to the caller's caller. 
Failure to do so will cause a BUGCHECK in the fork process dispatcher. 
Note that RS and R4 have already — saved, so it is not necessary 

since interrupts me timeouts are not 

d all the data has been transfered, it is not necessary 
to set the INTERRUPT and TIMEOUT enable bits for each byte transferred. 
For that reason, the timeout time is computed only once, and is large 
enough to “ee time to transfer the maximum number of bytes possible, 
which is 1 bytes of data plus some RSP protocol overhead. 


00$:  ENBINT Allow device interrupts 
S$ ;Return 
-WORD DD_TIME_OUT-. Offset to timeout routine 


This is the second and faster path through the wait-for- 

tek sagen Gi eg ee ts he It is reasonable to have 

two paths, as the first path is only needed for the first 

byte sent, and there will always be at least 14 bytes (the 

Length of a command packet) sent. This path saves two instructions, 
as it would be necessary to save and restore the IPL in the 

other path. Note that the interrupt is dismissed here. This 

is to save the necessary RSB to return to the interrupt dispatcher. 
Of course the driver's interrupt dispatch JMPs to the location 
stored in UCBSL_FPC within the device UCB. 


90s: MOVa R3,UCBSL_FR3(R5) sSave R3 and R4 
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64 POPR #*°M<RO,RT,R2,R3,R4,R5> ;Restore registers from the interrupt 
2 $6 REI sDismiss the interrupt 
FD26 44 oe «WORD ODD_TIME_OUT-. s0ffset to timeout routine 
69 1965 : Get the data byte from the packet buffer and send it 
69 1966 ; to the device. If there is more data to send, go through 
3 30 3 the second wait-for-interrupt-keep-channel path. 
06 As 8B 98 69 36 $00$:  MOVZBW (R3)+,DD_XBUF(R4) :Send the data to the TuS8 
0008 (S's iB $9 9 DECW SEI BN HO OSLENCRS) :Decrement byte count 
ED 14 a 4 BGTR 00$ sBranch if more to send 
7 97 : The data has been transferred. Disable device interrupts 
4 44 : and create a fork process to continue on with the 1/0 operation. 
AA 7 976 * BICW #UCBSM TPR YCOSA_INT .= ;Clear INTERRUPT and TIMEOUT enabled 
7 97 UCBSw_STS(R5) : 
04 As = 00 80 7 97 MOVW #0 bp XCSRC(R4) sDisable transmitter interrupts 
FFFFFFES €F f ° 97 PUSHAB L*°250S :Set return address of ‘‘caller’s caller’ 
: 9 1OF ORK :Get back to fork context 
887 19 JMP @UCBSL_DPC(RS) ;Return 
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| 
| 
| ] ; 3¢¢ 
| 5 ; SCSR 
| : $ : ABSTRACT: Update the transmitter CSR with the data in R1. 
| 1 : : INPUT: R1 = CSR image 
12 , : R4 = CSR address 
| 1982 > OUTPUT: CSR updated 
199% : SIDE EFFECTS: None 
ie 
1999 ScsR 
0 1308 BBC #0D_V_CONSOLE,- :Branch if not console device 
199 UCBSW-TUSSSTS(R5S),10$ 
.-% 0 MTPR R1,#PR$_CSTS sUpdate CSR 
0 1 RSB ;Return 
046 aa O51 8 § 10$: MOVW R1,DD_XCSR(RG) ;Update CSR 
0 00 RSB Return 
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9A 5 s+ 
| . 
| 9a 500? | RCSR 
| 9A : ABSTRACT: Update the receiver CSR with the data in R1. 
9A 2011 : INPUT: R1 = CSR image 
~ : : RG = CSR address 
| 9A 1 ; OUTPUT: CSR updated 
9A 1g : SIDE EFFECTS: None 
Sa S018 | 
9A i§ ACSR: 
£1 9A 0 BBC OLE.- sBranch if not console device 
1 ocaSu at eTSiRS), 10$_—; 
¢ MTPR Rios PRS_CSRS ;Update CSR 
RS8 sReturn 
66 «C1 AL 2026 108 MOVW  R1,DD_RCSR(R4) sUpdate CSR 
A? 2025 RSB ;Return 
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; CHECKSUM 

; ABSTRACT: Given a message packet (enter address and length, 

; gengues the checksum of the buffer. The checksum 

3 s formed by “adding edjecens words in the buffer and 
; adding in the e carry (if any). 

$ INPUT: R1 = Message packet buffer address. 

3 Re = Message packet buffer length. 

3 R5 = UCB a Sress. 

¢ 


; OUTPUT: RO = Checksum (low word) 


; SIDE EFFECTS: R1,R2 are overwritten. 


HECKSUM: ;Create massage packet checksum 
PUSHL nO, Save byte count on stack 
CLRL hy :Clear output cell 
ASHL R2,R2 Convert byte count to word count 
10$: acey Che. RO ;Add word to current checksum 
owc RO’ ‘Add in carry, if any 
SOBGTR 4% 10$ ‘Branch if not done 


In order to make CHECKSUM work for odd eyte counts, we 
have add the Last byte on after calculating the checksum 
for the rest of the buffer. 
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DP DPDD PVPS Be BS BB EE EIA Iron 
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o. es (SP)+,20$ sBrench if odd byte count 
zRe 
208: MOVZBL (R1)4+,R2 7Get the last byte in the buffer 
ADDW R2,RO Add it to the checksum 
ADWC #0,R0 zsAdd in carry, if any 
RSB :Return 
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SET_FUNCTION 

§ ABSTRACT: Use the function code in the IRP to determine which TUS8 
function to per orm. jn effect, map the system function 

7 ode into a FOS awrasven on I The results are returned 

4 n the low bytes of R « 

74 3; INPUT: RS = UCB ADDRESS 

7 OUTPUT: ws s uae f FUNCTION CODE 

7 UNCTION CODE MO 


FIER 
Mapping bit "te UCBSW_TU sasts S is set or cleared, depending 
on the tenetion pequbeted. 


SIDE EFFECTS: R3 = IRP ADDRESS 


NOTE: Some functions irueee d.3s legal in the FDOT are not yet 
implemented in th firmware. These functions will 
be trapped -_" By tagged as illegal function codes. 
If an illegal function is requested, exit the driver 
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without sending a command packet. 


90 SET_FUNCTION: sDetermine TUS8 function 


oS 8 SSS SSS SSS SSS SSS S88 8 eee ee ees333 33 c 
NO 
J 


91; 
3 3 If yt ee spoke MRSP, ssoyne phot the tunes ten will 
it, : use unless the user explicitly requests otherwise. 
3 A3 s«BO 95 MOVW IRPSW_FUNC(R3) ,- :Copy function code to UCB 
OO9A C5 0 9 Ucesu. FUNC(RS) 3 
0 E1 9 BBC VAR 4 :Branch if not an MRSP TUSB 
11 OOCA ¢ 38 UcBsu- TUSBSTS(RS),208 
€3 D 9 BBCS #00 MRSP 3;Set to use MRSP 
00 OOCA D6 0 UceSuy TUSBSTS(RS),108 
€1 DA 1 10$ BBC #108V- NOMRSP sBranch if user wants to use MRSP 
06 20 A ye : 1RPSu- FUNC (RS) 208 ; 
E5 DF BBCC oe yseme 7Do not use MRSP for this operation 
00 OOCA E1 4 CBSu TU BSTSiRs), 20$_—: 
D4 53 5 208 CLAL uf ‘Assume no function modifier 
53 58 a5 00 Ee $ MOVL pits re oR3 :Get IRP address 
EF EB EXTZv  #IRPSOT_F sExtract the function code 
ED § 1 ta FOE. 
50 20A ef $u_FUNC(RS)-R ‘put function code in RO 
1 F CMPB Ho EADPBLK, ;READ physica ock? 
. 3 F4 : BEQL ‘. ack ao noon Ss ' 
50 91 OBFG 3118 CHP «=: #1 0$_WRITEPBLK,RO TWRITE physical block? 
1 13 F 1 BEQL 4 3 
50 1 Ht 4 | i erer #10$_SEARCH,RO ;SEARCH/POSITION request? 
50 0D 91 16 CMPB 2198 DIAGNOSE .RO :DIAGNOS tenet tent 
1A 361 1 BNEQ 60$ ‘Branch 
50 07 18 nove #0D_CODE_DIAG,RO iset di > Aad function 
50 8 % $0 30$ MOVB #00_CODE READ .RO :Set READ function 
1 90C 1 BRB 4 Check for function modifier 


50 


50 83 
01 20 a 
51 01 
50. 00S 
50 1 
5 

50. 11 
gs 

0800 8F 
64 AS 
50 08 
08 

0800 8F 
64 AS 
50.01 
05 

OOF4 BF 
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9 9 122 40$: MOVB #00_CODE_WRITE,RO sSet WRITE function 
E 3) 1 : ht $ BBS #10SV_DATACHECK,- Branch if DATACHECK requested 
. 31 4 sa IRPSW"FUNC(R3) ,46$ iis 
Return 
#9 aA ! § 468: nove #0D_CODE_DATACHECK,R1 eset DATACHECK op code modifier 
Return 
$9 918 21 8 50$: MOVE #0D_CODE_SEARCH,RO zSet SEARCH function 
0 ait ! 4 RSB Return 
91F 2131: Trap UNLOAD, AVAILABLE and PACKACK functions here. These function simply 
91F 1 § 3 set or clear the valid bit in the UCB and return with success status. A 
91F 1 3; command packet is not sent. 
Sif 5438 * 
91 O91F 21 § 60$: CMPB #198 .UNLOAD .RO ; Unload function? 
13 0922 21 BEQL $ : Branch if so. 
91 0924 2138 CMPB SAQS_AVAILAGLE .RO 3 Available function? 
12 0927 2139 BNEQ 70$ 3; Branch if not. 
AA 0929 2140 65$ BICW #UCBSM_VALID,- 3; Clear software valid bit. 
92D 2141 CBSW_STS(RSS F 
11 O92F 146 BRB ; Branch to common code. 
91 0931 2145 708: CMPB FAge-PACKACK RO ; Pack acknowledge function? 
\s 934 2144 BNEQ 100$ ; Must be illegal function code. 
A 936 2145 BISW #UCBSM_VALID,=- ; Set software volume valid bit. 
93A 146 UCB$W_STS(R5S : 
DO O93C 2147 80S: MOVL #SS$_RORMAL ,RO ; Return success status. 
11 O93F 2148 BRB 2u0$ ; Branch to exit. 
But $183 
+h 13 : If we fall through all the tests, it is an illegal function. 
BO 0941 138 100$ MOVW #SS$_ILLIOFUNC,RO :Put error status in RO 
Re ape 154 200$ TSTL (SP)F Discard return address 
1 rt 132 BRW DD_EXIT sExit the driver NOW 
0348 137 DD_END sADDRESS OF LAST LOCATION IN DRIVER 
948 139 - END 


rom Hi, 


- 
vt 


MmMmmmnnm mmmmr NM Cm ~~ 
oOo°0OOO oooo o oo o 
eaacaca ecaca =< ea « 


OOOOOu vw wuwwuwuwue & Ou Ou COOSCOOOCOSCOOSOSOSOSOSOSSOsODOOOoOoooO OOooooooo 


OOOCOOew. we eee eee ee Ou Ou COOCOOOOOOSOOCOSOSOSOOSSSOSSS—- GOSoOoOoOoOoOOoOoooooooOo 


5 


= TUS8 DC100 TAPE CARTRIDGE DRIVER 


IVER 


Symbol table 


oor 


| 


=Zz0or-a &- wea <= > 3 - 
YVdevOn FPOOrw8a we wwo 2 ~aD 
oO Me 2OV2Zu VOrato>rw —- w a ama zo @ z=oa@m 
_ Vwo-OaTZa eve Se oe CL ” omr re Comen < wz © 
ak- VOOOCOOCS «Mee avuaercerresaD ZO -& ee ouvme - ‘'_a-~- 
cae weet e eee et Ue er OO CwWetO2Z 240 EF Ze>uaevorevoaczadca- ee > OO-a@ 
2<> er DBOODOODODMOOoCZ®ZAaGS 8 wWZ2Vw ts: O-YJOOZoZzIwwe Sz Oe wv racoaw 
OrGQusao ©+ttetesteeeee ees <-O00 4248200222 4 Own | ZO I>—-u- aawovoon> 
Vr > IEMMNMMVMMMNAMOVHWVNVNNVYVE> -“YVVETEA 5D D4www)D tttitte_sces tt G&S aumma tm etpese 
Wate oe eee ltt Rj OV VE EEE EE EEE Ve Eee ee RYU 
CCT MMMM MMW HMXVWHMVMWMWWMMNMMNNOGE &— DIP PP > K K K K KMRHAHARHAHAPAHAAAGAGAAAGPDA WVAKHMKHKHGHA 
eeesceoeeeeseeeeeeeeeeeeee eee aetcatlchatlcaitl ak kt oS aS SSS So So ok ee ee OWE ZZ ZZ 
SOoOOKOKGHBOOBOOOKOOOKOOKBKBKBOOCOCKoOOCKCCCO COW WWW WWWWWO0000 05> > >>> 
AHOOOKOGHOHOKSOHKKOOHGOHHOCHHOGAHKGOAHHSHSHCHHOHOHAGBOHoHGHAOfBOGHAHHGoAHoSaHHSaa a aaa ao 
~N MPenenenmy ma - ~~ ~~ ~ mer al 
oO Oooo°o°oo o Oo o o o oo o 
>< et OC OK OK OK 
2 o 
<= = «= a a [+ 4 ca [24 
OvwOoe © 6 ee eK TOUT IO OF OVUN CRU) 2 WIV FF OW DUNO K FIMOVO | FNUOTNN ua OOO 
NOt Fe ee FOO LOONTOOO- COSCO COOOCoOSooOOoOeayT ow =—OO-—Mmm @aooooy 
OOoO# &€ e & & & COD LHOOCOCOOCOCOCOCOCCOOCOOSCSSoSSAaSOoOoMNSSoOoSooSo 
OoOoOt &€ & € & Fe COOOCCOCOOCOCOOCOSOOOOOOOOSOOOSOSOOSOOOOOSOOSS SoS 
33ss Fe FF FEDOODOOOOOSOOSOOOOOSOOOOOSOSSSOSSOSSSOSSOSOOOSOOOOOS Oooo OSS 
Fee FF FE DOOOOOOOOSSOOSOOOSOOOSSOSSSOSSSSOSSOOOSOOSOOOOSOSLSS S>Ooc 
ooo COOooOooooooO 


pea 
a w 
ad all — 
xe =x 4 2 & F 3 
vv vow zz ve a w 
” bn 4 Z2<wvooce z wwe ae eee Ow oO <= o> 
rv) ~~ « ~N wee eee w alia Seca ba vw" ww aa 
Ywr _@ oecaoh wo Hew ewwee = ‘tia =2°9 - aE a +s 
Mvwr Ow zOoOrre @2Qe wWocococv esgzzse - | Zueue YWvo x vVavVEw > £Ez 
Swee-ZOr &ZzZzu «ava (tert titow 2a wd #608 & tT fy ‘6 
ava <«—-<2 Kee —- COVUWWWwww® udev +jA@O@OrVVOO0vU €<S ' oe weaag 
Zzwew wee “wus § bee 8 8 <~sss ss i 4 ] x S50 See a> mn 
“S83 =2 “ao ne tee t+ EF te aaa OAScextJttjjoZz oes Vev 
a tw 2 VVEVOEVSVVV COOWWWWweeeeuese “EETEE =a 
2 beietetwtetetet=tet i] F.¥-4-t0-¥-9-9- Pry ‘o\ ‘2 y ‘ao'o'a' ‘oo 
SB<eeeeeeawoooooSeesesessssessssssssssssssssssssssssssssss 


pO Ee 


5 


¢ 


a 


| o> 
~~ 
Se ed 
ww 
a 
o 
@ 
a 
= 
**. 
« 
<= 
=z 
oO 
oa 
ow 
‘i> 
wre 
oa 
7 
oa OF MMMMmmmnmn ~~ 
mr oo ooooo°oo o 
vv 
LI 4 
zum 
- = 
Wa 
=w aQaaacacca [+ 4 
~~ € €DWVUOR.00 4 ~TF DOOM OV WMI 2 OD DOMONV RK VST VOSS ET FUT OE OM OOM INO 
Ke FF EMUOOONINIMOOWNOCO eK HK — KOO. DOWN VOOOMMM & £ V0 WW WWW ae 
IQ # FCOOCOOOCOOOCOOWOOOOCOOOOODMMBDr. DDHOS-OOVS——-OK— UVF OOSOSOOOSOSOOOSOOoOSO 
S44 F FE QDSOOOOOODO0O TF CQOSOOOOOSOOSOOOCOOSOOOOOSOOOOOOOOOOOOOOOOOOOOSOOOOO 
 &§ QOSSKOCOCOOCOOCOCOCOCOSCOOOOOSOOOOSOOSOOSOSOOOOSOOOOOOOOOOOOO OOO OOOO OOOOOo 
# &E€QOOCOOOCOCOCOOCOSOSOOOSOOCOOSSOSOOSCSOSOSOOOOSOSOSSOOOSOOSOOSOOOOOOOOOOSOOoOoOO j 
NK ££ €ECODOODOOCOTFTOOCOCOC SOOO OSOSOOOSOSOOSOOSOSOOOOOOOOOOOOOOO OO OOOOOOOOO 
NK FE DOOOOOOOOOOOOOOOOOOOOOOSOOSOSOSOSSOOCOOCSOOOOO OOO OOOO OOOOOOOOOO 
oan nuunnnnnnnnnnnnnnnunnn uu hununnnnnnnun 
--— | 
-- o | 
oo | 
ww | 
e000 
oan 
rer 
$s 
aa 
uu 
mn i 
a8 | 
— =< 
w RKOrwo ew 
oo _ z zo 2z2<Zz2o<au-360 
I rv z= ala! a wD —- wow at pa ted tat $ 
a w > vv | eel ed oO ‘ee 2 vaz > 22x eMOu DOO u VDE OS 
<= <«-—wa@w ee aa =< fro —eww> « ew YY iIIO68040460400000wW 
=z=Zz-aA OVOWY TT) >> —-— wwe Oaert>ou mq tie pe OOOO VCVUWWWWWOO™M 
vaoato<aozvure- =z33 —— £2 Mae BwVvOOuxerOnwwmM ttitespeeee eee ses 
a a Dwr VeuU Dre S—ANOMOAM tt eO wuovved Wetec OWE wr OCOOCoOoOoOoOoOoooaaoe 
w Or EvMVu Ouvuve - § &ereriioo <vw <«<aZz3 tet rt 1 + +t 
ee ee SPOS CEA Oe Pe XOSSH82S20-S-wemmmmmmnmnannn 
— -_ e ~~ — 
rt. 4 PPA@@Ge@@@@OwMMVAGQ tttiittMmoweoo m-ttteeeeee ees SSSSSSSSSS2S3E33 
Qa V4 4040440 ZIM XNVPRRHKRKGHBGGBYMKN LVNYNZ Zr ONOKLAHAKLAKLAKLAPAWODOOAOOOOOOOOOQ®D 
OO@a@aaeaeaacocOd ae ae Oe eee eS SS VWWV WWW T= ZMNNMNMMNMMMMNYNY BOVVVsVVVEVVYVyYvYYyY 
“ Mt IE EES SOA AAAAA SS SCMNYNNVHVHVHHVVVHVHHNNYF DIDIDIDII2 2D 2D 5255252 >5> 
Qa 
_— 
a 
— 
< 
=i 
(=) 
Deel lel nll ll delle ll ell ell el ll EO lll ll) ~~ Dl ell ell ll ll lade el 
w ooo Oo Oooooooo 
a 
= 
- >< WC PK OK DK OK DK OK DK OK OK OK OKO >< OC OK OK OK OK 
Oo < cana « 
- 
=) wOtee eee eee € eETOWK PR OOWU ONORKMITNOOCOOe ve Car < eeeeeee 
a WV ee eee eee See FEADOT —“OMOOCOMM—MMM—_—MMOVOMO- Ve eee eeee 
Owe eeeee eee eee & ©OORMOO-OCOOCCOCO OoOoooooooo: eeeeeee 
Ce) Ooe eee ee eee eee & & COOOSOOOCOOCOOCOOCOOCOCOCOoOSoooSoOo eeeeeee 
wn ss FESS S SESS SSS PSY sores eee Coooooooeoo eeeeees 
> See eeee eee eee & & COOCOOCOOCOOCOOCOCOCSCSOOCSOSSSoOoS eeee eve 
OOeeseee eet ttt & Fe CDOOOCOCOOCOCOSCOCSOSSOSSS eeeeees 
P COOoe ee ee eee eee & & COOCOOCOOCOCOCOOoOOoOSoSoSS eeeeees 
i} “ “uu nununnnnnnunnnnnnnnunnnnnnunun 
> o oa r=) | 
<= cy wer pa = Nu ™ 
" azOoOwet ws w wr Su aw MuaMuMS EO 
e* 9 Ses >—<sS5 =< = vw Dw wa ~~ ww w waa 6 aj 
—~ ww «= scc324 >Ezoaacz + zea. + ” wat ZTOCw 2#SPes SSCSs 
2 &ewr- +4 Ooxnweueate a dwiee Sous wWwwwo> 3Seesy 4 9 — ©2288 5 
@ mwuwU 2 we Os BSS ew Aa 2 evVd evr Zur <i Vuaws DPwwwOewae a = 
ee 2M ew - ea vw & MOO Mere TEV WO “~ooes3e~ Om ee OP ee rr VU 
4 ov>> eeee _ ett bb tena Ft VA.<awe sf =) “422 BE ee ~9 
= a*8 ~ | a SAR ee eS DRM t re rat ‘6 a aa 
o a a a a a tad Zo -_ wee 
SF 2ee2eeRNeeeeeeeeeZs SSSSSSSSSSSSSSSSSSSSSSSSsssssssssssss | 
ow pyerververververye) pyereS ee hk ke kk aE Od Od OE OE Od a Od OS OS OE Sd Oo Oh SS SG SG OS OS SS SS SS 


= TUS8 DC100 TAPE CARTRIDGE DRIVER ’ a os PS 9 00:13:47 AX/VMS Macro V04-00 Page 55 


DDRIVER 
‘Symbol: table SEP=1 DRIVER. SRCIDDDRIVER.MAR; 1 (1) 


nnnnnn 
= 


£e<< Cccc 


? 
435A R 03 
002 


COOOCOCCCOCDOCCOCOoOOCOooO 
SSLRESESSRRAR Emm 
POU f£ rw —OmMm—0Oe 


S} 

oO 

2 
os 

r 

oO 

rm 

fy  ) 
> 
ore 
x 

a 

— 

Mm 

= 

oO 

_ 

=x 

@OO—VNBDOANODLONMAAOWDLON LOM 


OoOoooooo 


Ue OO OWI OO 


ccccccc 
co QCOOON 
Seesees 
im) ‘s 
mm 
gods 
ad aee 
co oc cww 
z r-zZzem 
— > ed 
m ao 
Ss am 
nhHonnnenhnnnhnu 
COODCOCOCOCOCOOCOCOCOCOCOCOOCOCOCOOOCOOOOOOOOOOCOOOe 


OSOooooooooooo 


AELRLSS 


POP MOWOMBDWOOMaw 


Cc 
Oo 
2 
a) 
yw 
> 
v 
—~ 
ve 
Hnnnnnnnnnnnnnnnnnnnnnnun 


COMOMOMM™MED 


a 


5 
DDDRIVER = TUS8 DC100 TAPE CARTRIDGE DRIVER a oe ae 9 80: 19:93 AX/VMS Macro 
ors synopsis ~SEP-1984 71 


beme rm oe nw wna w cnn} 


! Psect synopsis ! 


tee esce see sasw ocean 


PSECT name Allocation PSECT No. Attributes 
- ABS 0000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL wears NOEXE NORD 
SABSS 0 FE ¢ ; 4.) 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
$$$105_PROLOGUE 0 9A ( 4.) § ( ¢°} NOPIC USR CON REL LCL NOSHR EXE R&D 
$$$115-DRIVER 0000948 ( 2379.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD 
temo ener ees ease en ese macase$} 
: Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 6 :00:00.03 0:00:02. 
popnene processing 130 Se aiBABt 
3 bev of BRIER, BB Rite 
Symbol table output 19 90:00: 0. 1 0:00:01-39 
Psect synopsis output 0 0:00:00. 0:00: 8-8 
Cross-reference output g BO: 00.57°5 Hs Bt tee 
Assembler run totals 118 00:00:27. 00:01:42.41 


The working set ‘=e was 2400 pages. 

159747 bytes. / (315 pages) of virtual memory were used to buffer the intermediate code. 

There were 130 pages of symbol table space allocated to hold 2399 non-local and 105 local symbols. 
159 source yt were read in Pass 1, produc ing 22 object records in Pass 2. 

1 pages of virtual memory were used to define 48 macros. 


pasar orem ease were ewan eee sent 


! ; Macro Library statistics : 


esceaee en ete senses ec ese ceseace $ 


Macro Library name Macros defined 
~$5280UACE: BSvS- -OBJJLIB.MLB;1 29 
$255$DUA SYSLIBISTAR tera MLB;2 10 
TOTALS (all Libraries) 39 


2612 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DDDRIVER/OBJ=OBJ$:DDDRIVER MSRC$:DDDRIVER/UPDATE=(ENHS:DDDRIVER) +EXECMLS/LIB 
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